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Fast Flexible Information 


ross systems 

1800 Embarcadero Road 
Palo Alto, CA 94303 
(415)856-1100 


Regional offices; New York, 
Dallas, San Francisco, Los Angeles 


“Now that’s fresh decision support” 


MAPS™ IS FRESH! It’s the ideal decision 
support software product for today’s financial 
manager. With MAPS you get fast, fresh, 
flexible information handling the moment you 
want it. Plans, forecasts, models, reports can 
all be created and manipulated right in your 
own department. Changes that affect your 
company can be reflected and evaluated on 
the spot. And best of all, MAPS is canned 
for easy use! Call Ross Systems right now. 
Ask for a demonstration of MAPS. You’ll 
be amazed what a little fresh decision 
support can do. Currently available on 
worldwide timesharing, or purchase for 
DEC’S,* RSTS/E and VMS operating 
systems. Contact Ross Systems for 
more information today. 

IB ‘DEC is a trademark of 

' Digital Equipment Corporation. 


Financial Decision Support 

ed For Easy Use! 


MAPS meets your daily 


requirements: 

Financial reports.100% 

Financial planning.100% 

Consolidations .100% 

Financial modeling.100% 

Performance forecasts.100% 

Full color graphics.100% 
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Looking for a quiet, tough printer system? 
Southern Systems has it. 

The QT Family. 



People have been talking about The QT 
for a long time. They didn't call it The QT, 
of course. They just talked about the ideal 
line printer system — one that would be 
both durable and easy to operate, a low- 
cost system with great versatility and 
dependability. Give us a line printer system, 
they said, with one answer to my most 
important needs: 












Do the QT printer systems give me a 
choice of 300, 600,1000 & 1200 I pm? 
Does the QT family set the standard 
for quietness? 

Are they built for production DP 
applications? 

Are the bands heavy duty steel? 
Qperator changeable? 

Are they easy to maintain? 

Is the print quality top-caliber? 

Is there a diagnostic display? Internal 
self test? 

Towel ribbon? Forms alignment? 
Membrane touch control? 

Does SSI guarantee compatibility 
with my computer? 

Is service available nationwide? 

Is the QT line printer family affordable 
and cost-effective? 


There's just one other answer you might need; 
"Delivery in approximately 30 days." 



Tell me about your printers from; 

— 200-300 Ipm _600-900 Ipm _1000-plus Ipm 

_Parallel interfacing _Serial interfacing (Synchronous or asynchronous) 

My computer system is_ 

Name_ 

Title_ 

Company_ 

Address_ 

City^-State_Zip_ 

Telephone ___ RS 



Southern Systems 

The Printer System Problem-Solvers. 
2841 Cypress Creek Road 
Fort Lauderdale, FL 33309 
(305) 979-1000 

(800) 327-5602 •Telex 522135 
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“we write 
everything 
with 

Ambase” 



“AMBASE training was well 
presented and made our use of 
AMBASE easier. 

We are using AMBASE to 
write custom programs and 
customize modules within 
other products. It takes less 
time and we write everything 
exclusively with AMBASE. 

We are able to put out a 
report in a matter of hours as 
opposed to days. We couldn’t 
live without it. ’’ 


AMBASE is a revolutionary 
state-of-the-art system for 
application development and 
data base management. 
AMBASE is increasing 
programmer productivity 
worldwide from 100-900%. In 
addition to the data management 
system, AMBASE includes a 


Mail to: 

AMCOR Computer Corp. 

1900 Plantside Drive 
Louisville, Kentucky 40299 

Please send more information 
on AMBASE DEC RSTS 
Software to: 


tm ~ 

Don Chick and Greg Jones, 
Automation, Inc., 

Omaha, Nebraska, 

Service Bureau, using the power of 
AMBASE in an integrated 
environment with AMCOR's 
Accounting and Business Control 
Application products. 


report generator, query 
language, screen formatter and 
automatic code generator. 

If you would like to find out 
more about AMBASE, just clip 
and mail the coupon, or 
give us a call, TOLL FREE at 
1-800-626-6268. We will send 
you free information 
immediately. 



Name 




Company 




Address 




City 




state 

Zip 



Phone 




amcor computer corp. 

■ a Kaneb company I 



Louisville, KY - Atlanta, GA. - Campbell. CA. 
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From the editors.. 


(|^TS 


Mr. Howie Brown Chairman 
IRUS 

Box 3043 

Pawtucket. Rl 02861 
November 2, 1981 

Dear Howie. 

CONGRATULATIONS! With lots of hard work, 
dedication, late nights and plenty of inspiration you 
had a great ACCESS-11 conference. The RSTS com¬ 
munity and all DEC users salute you and your group 
for their efforts. 

We have hoped for some time that there could be a 
forum for suppliers of services for DEC users to 
display their products at a dedicated show. INFO. NCC. 
COMDEX and other shows have their places but 
somehow the DEC suppliers seem to get lost in the 
vastness of the expositions. The ACCESS-11 show was 
big enough to keep people busy, but not too busy to 
allow lots of one-on-one talking, demonstrations and 
personalized information. 

We were pleased to participate in the seminar part 
of ACCESS-11 for the second year In a row. and from 
the extra time we spent after the formal sessions talk¬ 
ing about the topics we know that they attendees 
were rewarded for coming to Hartford. 

Just a word about Hartford. Co.; The Civic center 
was large, friendly, well placed, responsive (our booth 
had the right teiephone for our modem, and electricity 
to run It and the terminal) and next to the Sheraton 
hotel. The hotel managed to feed us when required, 
gave us a good room to sleep In and had the reserva¬ 
tions correct; hard to beat. 

The RSTS PROFESSIONAL promises to participate in 
the next ACCESS-11 and hopes that all the vendors 
and participants concur. 

Best wishes and thank you. 

Carl B. Marbach Editor. RSTS PROFESSIONAL 


I have printed a letter we sent to Howie 
Brown and his IRUS (Independent RSTS User 
Society) about their conference and exposi¬ 
tion held at the end of October. I hope all of 
us spend a moment to think about what 
has transpired. A RSTS showl RSTS people 
came. RT-11 people came (‘we are thinking 
of moving to RSTS’), RSX people came 
(‘what’s a RSTS), TSX people came. VAX 
people came and 1 even met some non-DEC 
users who came to see what DEC was all 
about. 

1 am not sure what the attendance ac¬ 
tually was. but we think it was g(xxj for all 
the RSTS vendors. We saw more RSTS users 
than we will see in one place (except for 
□ECUS) and we had full a easy ACCESS to 
them, and they had ACCESS to our products 
and services. The non-RSTS vendors, such as 
RACAL-VADIC (modems) or BASF (magnetic 
media) saw fewer people than they ever had 
in a show before. Did they see enough? They 
will decide by seeing how many sales leads 
were generated and what kind they were 
(lookers? buyers?). As a community we 
want these vendors back, and we want 
more; here is what we can dO: 


SUPPORT THE VENDORS WHO 
COME TO YOUR SHOWI 
SUPPORT THE VENDORS WHO 
ADVERTISE IN YOUR MAGAZINE I 


Your support means: Ask for informa¬ 
tion from them (sign up at the show or use 
the reader service card in the magazine). 
Give them a chance to show you their prod¬ 
ucts and why they think you should buy 
them, then make your own decision — we 
want you to buy what is right for you. If 
these vendors generate enough qualified ac¬ 
tion from our show and magazine you will 
benefit. For example, there were three 
Statistical (TDM’s too) multiplexer com¬ 
panies there. It was a great opportunity to 
find out what each one has to offer. 

The Vendors will be here if we show 
them we want them; only you can do that. 
There were so many good things at 
ACCESS-11. but if you contribute there will 
be still more at the next. 

See you there! 

FIRING UP OLD ^71 
A Case Study 

Dave Mallery 

The 11 /70 started volume production 
in the summer of 1975. My first machine. 
^104. was delivered in December ’75 and 
has been running like the engine it is. ever 
since. We recently heard that a local in¬ 
surance company was selling off its old 70 
and by a variety of luck and instinct, go it in 
the low $50’s. As delivered, it had Vz MB of 
core. 4 DH11 AE’s. a TUI6 and RWS04(!) 
and a pair of RP04’s plus a RSTS license and 
other gems. It had been powered down in 
March of 1981 and had been sitting in a 
clean computer room ever since. We sold off 
the RP04’s and controller for a tidy sum and 
proceeded to install the rest (less the swap¬ 
per) in our computer room. My goal was to 
have the machine shipshape (?) when DEC 
came in to take it on service. After all. there 
are 3 or 4 different independant depot 
repair services today —surely they can fix 
anything. 

Once I had the electrical outlets in place. 

1 re-cabled the TU16’s controller and 
powered her up. Wonderful—she can load 
address!! Quick—17765000 load address. 
60-start-she BOOTS! EUPHORIA. Load a 
memory diagnostic — EMJA?? — after a 
few minutes, reality—parity errors—hard. 

Now. fixing a computer without a 
spares kit requires some creativity and 
courage, fortunately old memory boxes 
have many repititions of the same boards— 
Just move-em around and you can move the 
location of the error. At this point, we also 
discovered a bad regulator in one of the 
boxes. 1 used Reliance Electric in Columbus 
for fixing my regulator and bad memory 
boards—they seemed to turn them around 
almost immediately. Now that the memory 
seemed O.K.. on to the major processor 
diagnostic EQKC??. This is the one that 
... continued on page 36 
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WeVe got the Vnoo 
market seeing red, 








Introducing the VTIOO-code 
compatible Colorscan 10 for just 
$3,195. It’s the first affordable 
display terminal with the 
dramatic high-resolution 
color that businesses need. 

The new Colorscan 10 features eight 
independently selected foreground/back¬ 
ground colors (red, green, blue, yellow, 
cyan, magenta, black and white) crisply dis¬ 
played in both 80- and 132-column formats. 
You also get a 128-character set, plus 128 
special graphic symbols. 

The Colorscan boasts state-of-the-art 
ergonomics too. You get a tiltable screen, 
high resolution display, and detachable key¬ 
board with separate numeric pad. 


and blue, 
andyeloMr.. 


VTICX) IS a registered 
trademark of Digital 
Equipment Corporation. 


Colorscan 10 Name_ 

Make me see colors. 

Please; Company. 

□ Send complete 

product information. Address— 

□ Have your repre¬ 
sentative call. 

Return to; Datamedia 
Corporation, 7401 
Central Highway Penn- 
sauken, N.J. 08109. 

(609)665-5400. Phone- 


City. 


Inside, the Colorscan is packed 
,with performance. Like smooth 
or jump scrolling and split 
screen/regional scroll. 
Double-high/wide and 
double-wide characters. Key¬ 
board selected set-up parameters, self 
testing, even a CRT saver. All standard. 

If your business needs more effective 
financial and sales graphs, charts, histograms, 
or drawings in 80- or 132-column formats, 
ask about the Colorscan 10. 

It covers the whole spectrum of business 
applications. 

Write or call the smarter terminal maker: 
(609) 665-5400. Datamedia Corp., 7401 
Central Highway, Pennsauken, NJ 08109. 


State- 


.Zip. 


f>n4/V\EDM 


horn the smarter 
terminal maker. 
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LETTERS to the RSTS Pro... 


Send letters to: Letters to the RSTS Pro. P.O. Box 
361. Ft. Washington. PA 19034-0361. 


According to DEC’s Central Commercial Engi¬ 
neering Group RSTS/ E will have certain hardware 
items phased out over the next two years. Some of 
these items are of no surprise and little conse¬ 
quence. However, a few of these changes may hurt. 

Support of the following will be removed with 
Version 7.1: KLll, LCll, DCll, LSll, LVll, 
PRll, and 7-Track Mag-Tape. 

A suggested replacement for some of these are 
(respectively): DLll, DLll, DZll, LPll, LPll, 
PCI 1, and 9-Track Mag-Tape. 

The following list of devices will be supported on 
systems upgrading to 7.1 only{no system sup¬ 
port) until November 1983: RFll, RS03, RS04, 
RPR02, PR03, RK05* and RK05F (as system 
disks), LT33, VT05, VT50, IBM 2741, DPI 1, and 
Card Readers. 

Some suggested replacements are: RK07/ 
RM02/ 3 for medium large disks; RL02 for small 
disks; LA34/ 38/ 120 for the hard copy terminals; 
VTlOOfor the Video Terminals; DUPl 1-replaces 
DPll. 

The Card Reader has no replacement - only 
option is to move to another form of I O. 

Hopefully with the RSTS/E community in¬ 
formed well in advance this set of changes will not 
severely impact many RSTS/ E sites. 

We didn't get yourname, but THANK YOU wher¬ 
ever you are. 

QUESTION: If Mike Mayfield is offering an 
Internals Manual for Version 7.0 and 7.1 is coming 
out soon, will there be some sort of Appendix 
distributed with the new changes in it? Otherwise a 
V7.0 manual would be a waste of money. Please 
send a reply so 1 can make a decision whether or 
not to order the book. 

Stephen Munyan 
P.S. My first year and two free issues were fabu¬ 
lous! Keep them coming! My article will be coming 
soon. 

The manual will he in a 3-ring hinder for easy 
updates. 

Another call from the wild! Has anybody out 
there...? Well, this time ifs about ... actually. I’ll 
start with some compliments. A great magazine, I 
only hope that such a forum and exposure for 
RSTS will prod DEC into a ceaseless output of 
updates (maybe they’ll even improve their - our - 
BASIC+ compiler, although I am grateful for the 
time left me by a couple of long TKB’s - I learnt 
TECO!!). 

OK, now seriously, does anyone out there know 
anything about a decent Semitic semantic proces¬ 
sor? Preferably, AC/DC - both English and 
Hebrew. 

Naturally, we’re familiar with the main problems 
facing the Semitic programmer. Right to left I O, 
distinguishing between alpha and numeric input - a 
perennial hassle when writing Hebrew (and pre¬ 
sumably Arabic), either the user or program must 
reverse one of the two. But how does the program 
decide what to reverse (maybe according to upper 
or lower case)? Leaving the decision to the user 
merely creates a problem rather than a solution - I 
live under the perhaps quixotic illusion that pro¬ 
grammers are supposed to solve problems... 

In our data entry routines we’ve provided a var¬ 
iety of options - incorporating most of the above. A 


recent addition to our library was a right to left 
input simulation routine, the cornerstone being 
ODT sub-mode, pretty demanding on the CPU 
with all those interrupts! 

Repeat chorus n+I times - has anyone out 
there? has anyone out there? has anyone out 
there?... 

Gratefully, Ilan Caron, Israel 

READERS!?! 

Many thanks for a marvellous publication. It is 
truly informative. 

I have terminated employment at CBC Services 
Ltd., and have taken up with Noble Lowdnes & 
Partners Ltd. I take pride in wearing my RSTS 
PRO T-shirt. 

Yours, Graeme McLoughlin 
London, England 
Graeme, although we want to spread the word 
about our magazine, we suggest you wear a suit to 
the office the first few days — then wear vour 
RSTS PRO T-shirt. 

We find the magazine most interesting and effec¬ 
tive. We hope it will help us improve our RSTS 
systems. 

Best regards, J. Peled. 

Software & Hardware Supportman 
Nikuv-computers and data processing (1971) ltd. 

Israel 

I just read your piece in V.3, #3, and felt I should 
respond. Our Center has been running RSTS/E 
(versions 6B, C, and 7) on an II / 40, for three years 
and thought I might add a few “watch out for’s” to 
your list. 

The serial number on our CPU is 300, (obviously 
one of the later machines), and until last year, had 
had no ECO’s applied to it. Some other hardware 
items that contribute to the overall scene are: 

System Industries (S.l.) 9400 Controller with 

two CDC 9766 drives, three RK05’s, two 

TU lO’s, two DECtapes, one Dill I, one DZl I, 

EIS, FIS and a partridge in a pear tree. 

We had very frequent problems with our 
machine turning its “RUN” light off (As you prob¬ 
ably know, the “RUN” light differs in function 
from other 11-CPU’s. It means only that the CPU 
has control of the BUS.) When we put the machine 
on maintenance contract, they replaced the CPU 
backplane which virtually eliminated this problem. 
So make sure you have the new backplane that is 
interconnected with a P.C. board, not just wire- 
wrapped. The only way to recover from this failure 
is to halt, hit START, enable, and reboot. 

We found the only way to maintain good perfor¬ 
mance is to run the S.L Controller with a throttle 
count of one (even two won’t make it). You can get 
along with two or four if you don’t make frequent 
accesses to other peripherals and don’t mind “data 
late” errors when you do. (BACKUP doesn’t toler¬ 
ate very many errors of any type.) 

FIS may not be a match for FPU, but it does 
save space in a two word floating point math situa¬ 
tion. We had recently an occasion to duplicate our 
patient scheduling system on another hospital’s 
11/70, (without FPU) and one program had to be 
overlayed to get it in the address space; such is the 
difference an FIS makes. 

Watch out for the power distribution above the 
CPU backplane. Those plugs’ pins have a tendency 
to corrode, causing a resistance to the five volt 
current flow, eventually causing heat buildup 
which will melt the plug. I understand this has been 


fixed in machines with serial numbers over 6000. 

We appreciate the articles in RSTS Professional. 
Keep ’em coming ... and thanks. 

Sincerely, Tony L. Wilson 
Programmer Analyst 
Spain Rehabilitation Center 
University of Alabama in Birmingham 
And we appreciate letters such as yours. Thanks to 
you also. 

Several issues ago, a letter appeared in [this fea¬ 
ture] regarding the availability of a c.p.u. speedup 
kit for the PDPl I 70. Your reply, in print, was in 
reference to our model B-11 speedup kits and that 
evaluations were being made by PDPI1 70 sites of 
which you were aware. You also indicated that an 
evaluation was ‘’due” in a subsequent issue. 

Having advertised in your magazine on occa¬ 
sions since the above “letter” appeared, I thought it 
prudent to indicate now that over two dozen B-11 
units are operational at this time in addition to a 
significant number of our other product, the 
Model C-XX Overtemperature Protection 
Systems. 

1 would be happy to discuss either of these pro¬ 
ducts or provide customer references to any inter¬ 
ested parties who would like to write or call: 
Nassau Systems, P.O. Box 19329, Cincinnati, Ohio 
45219, (513) 231-1283. I am frequently available 
also in my Boston office, at (617) 735-9704. 

I am most interested in establishing the availabil¬ 
ity, reliability, and appropriatneess of our two pro¬ 
ducts for PDPII’s. Your assistance in this 
endeavor would be deeply appreciated. I might add 
that advertising in your magazine has produced a 
healthy level of responses ... approximately a fac¬ 
tor of two more than a similar ad placed in Compu¬ 
ter Decisions and Computerworld. 

I hank you. 

Yours truly, Bruce P. Almich 
President, Nassau Systems 

Thank you. Bruce! 

You have an excellent magazine. You get down 
on DEC a little too hard sometimes but we’re 
only human (not computers) and we all have faults 
(very small faults I might add). Keep up the good 
work. Your tech articles are interesting, especially 
with hardware (I’m in Field Service). It’s good to 
have more customers know about hardware. It can 
sometimes cut down on my service calls. 

Thanks, Dave Huffman 
Digital Equipment Corportion 
Thank you for the vote of con fidence. Dave. 

We have been getting your magazine since the 
first issue and have found much of interest. Our 
company has been designing and programming 
systems using RSTS for over seven years and so 
have accumulated much information that might be 
of interest to others. 

Since your magazine has been so helpful to us, 
we thought that some effort should be made to 
contribute and I enclose a “Quick” sort function 
that you may think is worth printing. 

Yours faithfully, Neil S. Robertson 
Manchester, England 
We thank you. Neil, and readers can find your sort 
function (Don 't Bubble - Quick Sort) on page 3S of 
this i.ssue. 

In response to Ed Horst’s letter to Richard 
Marino in V.3, #, I would like to outline our expe¬ 
rience with adding cache to an II 34. 

... continued on page 81 
(Photo Contest on page 65) 
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Better than Datatrieve! 

• Easier to understand 

• Much more powerful 

• Better manuals 

• Better support 


/I 



Not Limited to RMS11t 

• Can access most file types 
and DBMS 

• Include your own file routines 

• Mix file types in a single report 


THE 

ULTIMATE 

REPORT WRITER 




GENERALIZED REPORTING SYSTEM 
QUERY LANGUAGE and REPORT WRITER 

for PDP-11/RSTS systems 

from 

ENTERPRISE 
TECHNOLOGY 
CORPORATION 




Call or write for complete details: 

305 Madison Avenue • New York, NY 10165 
(212) 972-1860 


Incredibly Flexible! 

• Complete formatting flexibility 

• Powerful built-in calculations 

• User-specified calculations 

• Include your own special 
routines 



1 / 


Easy to use! 

• Usable by non-programmers 

• English query-language 

• Very user-friendly 

• Nonprocedural language 
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A TOP-DOWN LOOK AT 
INTERACTIVE SOFTWARE 

By Al Cini, Computer Methods Corporation 


THE CRAFT OF SOFTWARE DESIGN 

In "Segmenting BASIC-PLUS-2 Applications" (RP Vol. 3 
No. 1), we reviewed the advantages of modular (many parts) 
over monolithic (all-one-piece) software systems. Function¬ 
ally organized modules, i.e. modules which exist to perform 
one isolated independent function, make the "best" systems 
when they are interconnected using simple coupling 
mechanisms (preferably, using argument lists with a 
minimum number of arguments). To many, the derivation 
of a system"s modules is an arbitrary, artistic process — a 
personal matter between programmer and computer which 
is closed to objective study. The scientists (we prefer not to 
think of ourselves as mere "craftsmen."" and yearn for the 
day they grant Nobel Prizes to coders) among us. however, 
prefer to think of software design as a convergent rather 
than divergent intellectual endeavor. A number of compe¬ 
tent software engineers independently implementing the 
same set of user specifications will, we believe, produce very 
similar rather than entirely different results. 

Philosophically, this sort of thinking raises an in¬ 
teresting hypothetical question: 

"For a given set of perfectly detailed specifications, 
how many different software designs are 
possible?" 

Basically, there are two different answers to this ques¬ 
tion: " infinite " and " a few."" 

If you think '"infinite"" is correct let me clarify that by 
"design" I mean the representation of a system in a func¬ 
tionally diagrammatic form, such as the hierarchy charts we 
discussed in "Segmenting BP2 Applications" (see figure 1). 
Selection of a programming language and actual coding are 
not included. 

If you still say "infinite" let me further stipulate that all 
synonymous symbols in the design process (such as dif¬ 
ferent variable names or graphic techniques that mean the 
same thing) are not to be considered as significant in this 
exercise. 

If you still believe "infinite" is the correct answer, 
please note that an infinite space is a very comfortable one 
in which to solve problems for a living. After all, if the solu¬ 
tion you select is wrong who can fault you given the astro¬ 
nomical odds against picking the right one? 

If you bravely answered "a few," allow me to carry this 
one step further and assert that the answer is ideally "one." 
The design of a software system is an essential re-statement 
of its specifications: where two or more equally plausible 
design alternatives are possible, the specifications are in 
some respect incomplete. 


Of course, all "real world " specifications are incomplete, 
so we re back to "a few." Software analysis and design — 
the iterative processes by which we gradually converge on 
agreement between specifications and final product — are 
still human activities which elude "cookbook " description (if 
we could define them precisely, then we could program our 
machines to do them). 

Just the same, a few program design heuristics which 
facilitate the development of software systems have 
evolved and become accepted over the years. One of these, 
"top-down software development," pursues program con¬ 
struction by defining the higher levels ("main routine") of a 
system and proceeding through the design of the lowest 
levels ("subroutines") by a process called stepwise 
refinement. 

TELLING TOP FROM BOTTOM 

Simply stated, the "top " of an application is the part a 
user sees, while the "bottom" communicates directly with 
the machine. Information understood at the top of an ap¬ 
plication. such as names, addresses, social security 
numbers, etc., are very abstract from the computer's point 
of view. By the same token, cylinders, tracks, sectors, buf¬ 
fers and the like seem pretty foreign to the average user. 
The purpose of a software system is to convert a user’s in¬ 
put symbols into the proper output symbols by transpar¬ 
ently translating them to and from forms the computer can 
deal with. 

This translation process occurs in discrete steps at 
specific levels of the software design sometimes referred to 
as levels of data abstraction. Consider the very simple ex¬ 
ample of a program which reads a sequential file and prints 
its contents on a terminal (figure 1). At the highest level of 
the application, a user requests a printed listing of, say, all 
the RSTS Professional subscribers. The computer, which 
can't deal with entire logical files and complete output 
reports (setting aside PIP and Datatrieve for the moment), 
can however manage individual input and output records. 
At the next level of the application, we deal with the next- 
lowest abstraction of all RSTS Pro subscribers, i.e., individual 
subscribers. 

In a stepwise fashion, we have "decomposed ” the user- 
world data into a smaller form by refining the overall file 
listing process into individual record handling operations, 
which are executed iteratively for each record in the 
subscriber file. Since our computer (really, our programming 
language/operating system) offers instructions to deal with 
these decomposed data records (GET and PUT/PRINT), no 
further refinement is required and our design is complete. 
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Note that data at each level of abstraction flows from 
left to right within our design (the solid arrows), while pro¬ 
gram control (the dotted arrows) is passed into and from 
each refined functional module as it is invoked ("called”). 

Had our computer lacked a GET instruction, we would 
further need to refine our “GET SUBSCRIBER RECORD" 
function into sub-functions able to retrieve and de-block 
physical disk sectors. 

Without device 
drivers, we would 
need to write code at 
still lower levels to 
manage seeks to 
specific cylinders and 
tracks. RMS elevates 
our computer's data 
handling capabilities 
by providing instruc¬ 
tions to handle logical 
records, and the 
operating system pro¬ 
vides disk-handling 
services, so we can 
translate our user’s 
data into a machine- 
manageable form and 
back again without 
very much program¬ 
ming. Likewise. 

Datatrieve or a DBMS 
can operate directly 
on entire collections of 
logical records and 
further reduce or in 
some cases even 
eliminate the need for 
applications program¬ 
ming. A cross-section 
of RSTS/E and some 
of its layered prod¬ 
ucts. viewed from this 
data abstraction per¬ 
spective, is presented 
as Figure 2. 


RSTS/E users, hav ing trouble (ontrolling usage of 
your computer systc^m? is there panic when 
passwords are ciianged? Have v'ou ever lK)therc'd to 
ciiange your passwords at all? System sec uritv' is a 
sc'rious problem. Announcing PASMAN, the intel- 
ligCMit solution. 

PASMAN is a REACT account management sub¬ 
stitute. Eeatures include: 

• Pc‘rforms the' common REAC:t functions account 
add and delete. Easier to use' tlian RPIACT, and 
more' “forgiv ing.” 

• Nc'w feature's nevc'r av ailable' bc'fore. Mass change' 
of passwords for a single' ac count, group, or the' 
whole' system! You supply the' new password, or 
let PASMAN make one up. 

• idc'ntify use'rs by a logical grouping (sueii as 
ACXXfUNTlNC) and with an ac count desc ription. 

• Rc'fjorts of what account bc'long to who. Identify 
usc'r growth pattc'rns, be able to plan ahead for 
u))gradc's. 

In short, PASMAN will help you to get back control 
of your system. 

PASMAN is available now for only $350. It comc's 
comf)lete with a through usc'r guide, which can be 
ordc'rc'd sei^arately for $ 10 . A trial v'ersion of PASMAN 
with manual is available' for $50. 

PASMAN can also bc' orderc'd with DUMPER, a gen- 
c'ral purpose' file dump utility. It is fast, easy to use', 
and the' output is more' use'ful than other available 
dump utilitic's. DUMPER is an exc ellent programming 
tool that eliminatc's one-shot programming to ex¬ 
amine' disk output data. 

The purchase pric e for DUMPER alone is offerc'd for 
$150. Like* PASMAN, it also comes with a use'r manual. 
PASMAN and DUMPER ean be' ordere'd together now 
for the discount price of $400. 

INEINITY SOFTWARE CX)RPORATION 
2210 Wilshire Rlvd. 

Suite 801 

Santa Monic a, California 90403 

(213)820-2702 circ.^ 87 on reader card 


• Iteration, where a bounded part of a program is executed 
repeatedly as long as a specified logical condition is true. 
Any continuous stream of similar data items implies an 
interative or "loop" program structure to process it. A 
"break" in such a stream resulting in different treatment of 
data items with certain distinguishing characteristics im¬ 
plies a selection. 

For example, lets 
modify our earlier ex¬ 
ample to list only 
RSTS Pro subscribers 
who own or use 
PDP-11/70s (figure 
3). At the "individual 
subscriber" level, we 
need to add a function 
which tests each sub¬ 
scriber record after it 
is retrieved and re¬ 
turns a true-or-false 
flag depending on the 
contents of some 
“CPU-OWNED" vari¬ 
able in its MAP. Our 
main program would 
use the contents of 
this flag to decide 
whether to call the 
"PRINT SUBSCRIBER 
RECORD” function, 
and our single input 
record will thus end 
up in one of two 
places: on the listing 
or in "the bit-bucket.” 
The flow of subscriber 
records is thus split by 
our application into 
two separate data 
streams, only one of 
which is printed. 


DATA FLOW ANALYSIS 

In earlier articles 
we reviewed what just 
about everyone in data 
processing has been 

exposed to by now: structured programming. Without detail¬ 
ing the discipline, we can recapitulate simply that only three 
control mechanisms are needed to write structured programs. 

• Sequence, where program control flows sequentially 
from one program statement to the next; 

• Selection, where program control is routed into one or 
another part of a program based on the evaluation of a 
logical condition: 


In any software 
system, an action of 
some sort is triggered 
by each input, the re¬ 
sult of which may or 
may not be physically 
apparent. Even 
though some sub¬ 
scriber records will be 
printed, each will be dealt with according to the rules estab¬ 
lished in our program. When we count all printed and ig¬ 
nored records, we get a tally of all RSTS Pro subscribers. 

Note that, in these trivial examples, the lowest-level 
blocks can be coded as individual program statements. It is 
theoretically true that the ultimate refinement of any 
design is into individual program statements, but in practice 
any large hierarchy will stop short of these lowest levels. 
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Especially when a project is staffed by more than one per¬ 
son. the "final refinement" will be delegated to the ap¬ 
propriate programmer. Also, data in even very large designs 
will rarely require refinement to a depth or more than six or 
seven levels, depending more on the availability of high-level 
languages and record management software rather than on 
the nature of the application. 

BATCH VS. INTERACTIVE SOFTWARE 


TOP" 


logical record 
collections 

logical records 

physical disk files 

physical disk 
sectors 


DATATRIEVE. APPLICATION PROGRAMS 

RMS. BASIC-PLUS-2 PROGRAM STATEMENTS 
the FILE PROCESSOR. PIP utility 

DEVICE DRIVERS. INTERRUPT SERVICE 


Our industry sometimes likes to make arbitrary distinc¬ 
tions between this and that class of software or program¬ 
mer. From our brief review of data abstraction and program 
design, we can see that an applications programmer pro¬ 
grams for users while a systems programmer programs for 
other programmers. The engineers who built RMS support 
payroll software developers in the same sense that they sup¬ 
port the Datatrieve development team. We act in a systems 
role when we build screen formatting or file look-up 
routines for our fellow programmers, and in an applications 
role when we use these and similar modules to write 
budgeting or data entry programs. "Systems" vs. "applica¬ 
tions" has nothing intrinsically to do with challenge and Job 
satisfaction: really good programmers can make themselves 
at home in either capacity. 

Likewise, "batch" misleadingly elicits visions of card 
readers and keypunches while "interactive" suggests CRTs. 
Peripheral devices are only accidental characteristics of 
batch/on-line applications: the real distinctions are a matter 
of software design. 

In a classical batch application, someone (the 
"operator") must gather the required input, schedule the 
proper computer Job. and distribute the output when it is 
finally produced. The computer Job itself is bracketed by 

I 


•‘BOTTOM’* 

FIGURE 2. RSTS/E and Layered Products Cross-Section. 
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FIGURE 3. Ust File With Selection. 
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FIGURE 1. Simple File Listing Application. 


special control statements ("Job Control Language," or JCL) 
which initiate the Job, assign physical devices to logical 
units, handle errors, and generally manage "housekeeping" 
functions. 

In an interactive application, the user is his or her own 
operator. Logon and RUN procedures submitted directly to 
the machine through CRT commands replace JCL, input is 
entered as it presents itself and output is often displayed 
immediately to the user. In the hierarchical design of an in¬ 
teractive application, the "top" levels will solicit and process 
control information (menu selections), and use these to 
decide which user functions to invoke. 

Many interactive applications have some "batch" 
characteristics. Imagine our simple RSTS Pro subscriber 
listing program as an "80/80 card-to-print" utility and the 
batch nature of this Job becomes obvious. But "batch" is a 
matter of data abstraction rather than of procedures. A 
software system is neither "batch" nor "interactive" per se, 
but may support the processing of batched as well as in¬ 
dividual data items. 

In a future article, we'll examine menu-driven systems 
from a few new angles. ^ 






















CLYDE 

digital systems 


CALOUT 


POOR MAN’S COMPUTER LINK UTILITY 

When you run CALOUT from your terminal you may dial up another computer by simply 
entering the phone number at your keyboard. You are then able to work as a remote user 
to the other computer with the additional ability to move files between your system and 
the other computer. All types of files may be transferred between the computers in either 
direction. This includes binary program files. Complete communication error checking 
guarantees that the files are transferred correctly even if the telephone lines are noisy. 
The package may also be used to automate incoming and outgoing TWX systems which 
then become directly attached to your computer. 


CONTRL 


REMOTE INTERACTIVE TRAINING AND USER SUPPORT 

When you run this utility program at your terminal you are able to capture any keyboard 
on the system. Thereafter, every keystroke entered by the user, together with every 
response from their job is also presented to your terminal. In addition, any keystrokes at 
your terminal will appear at the user’s screen and the system will respond exactly as if 
they were entered by the user. A complete log file of the session may be kept. The process 
of capture and release is invisible to the user. The user may be engaged in any task 
whatsoever, indeed the user keyboard may be logged off and turned off when CONTRL 
captures or releases it. 


DOC 


UTILITY PACKAGE MAKES FOUR TERMINALS OUT OF ONE 

With this package you may run up to four independent, interactive jobs of any kind from 
your terminal with context switching between them at any point in a job session. Each of 
the four logical terminals generates its own log file of all that passes between you and the 
computer. This includes straight paranthetical text which you may insert anywhere in 
the middle of a session without interrupting the job. In the session log file, each key 
stroke is underlined to distinguish it from computer responses to the job. 

★ No Installation, Simple to Use 

★ Clean, Powerful, Certified 

★ Inexpensive, Low Overhead 


Call: Janet (617) 275-6642 

Clyde Digital Systems, Box 348, Bedford, MA 01730 
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DEC DATA SECURITY 
THE SOFTWARE ENCRYPTION SOLUTION 

By Michael B. Schwartz, Prime Factors, Oakland, CA 


If you've opted to read this first sentence it most likely 
means you've keyed on the word "security." The reason: 
Within the last year the DP community has been bombarded 
with articles describing known computer crimes, estimates 
of the much larger number of undetected and undisclosed 
frauds, and a gloomy outlook at computer privacy in the 
80's. 

There's good reason for concern. Information is becom¬ 
ing a currency in itself — it has value, sometimes inestim¬ 
able. Computers are the new concentrators of the informa¬ 
tion asset. They are the banks of the future. Conventional 
banks use physical security to separate their currency from 
those who would like to own it illegally. But the physical 
security of computers themselves plays a minor roll. A dial¬ 
up port is a 24 hour a day open invitation and so is absolute 
access to on and off line magnetic media. Computer crime 
rarely means physical theft. A simply copy or off-site data 
draw usually leaves no trace. Similarly, a simple wire tap 
and data capture into a microcomputer is undetectable. In 
fact, a number of crimes involved adding information: con¬ 
sider the ramifications of a furtive entry into an accounts 
payables file to write checks to a dummy company (owned, 
of course, by the white collar criminal). 

The mainframe world has acknowledged these real and 
potential hazards and is now, rather hastily, trying to patch 
the breaches in the security wall. The minis are rapidly as¬ 
suming many of the functions of the mainframe and are 
encountering the same risks. Risks multiply with the pro¬ 
liferation of distributed processing networks, word process¬ 
ing and electronic mail, minis in use by banks and other fi¬ 
nancial institutions, and corporations who are replacing 
their monthly time sharing bill with their own mini¬ 
computers. 

Yet. until now, there has been no level of data security 
for the minicomputer user other than the minimal effective¬ 
ness of standard operating system passwords and simple 
access control commands. 

This article discusses how a new concept, the GSDEU 
(Generalized Software Data Encryption Utility) developed by 
Prime Factors of Oakland, California, and implemented in its 
PSYPHER™ system, can solve these problems. This first sec¬ 
tion is a primer on data encryption. The second will address 
encryption's roll in security on DEC computers. 

As with most techniques of secrecy, the foundations of 
data encryption grew out of military necessity. A couple of 
its earliest known forms are the "skytal" device, used by the 
Spartans against the Athenians: and the Caesar Cipher, used 
by Julius Caesar against almost everybody. Two world wars 
brought cryptography out of its adolescence and the emer¬ 


gence of the electronic computer kicked the discipline into 
maturity. 

Types of encryption can be broken down into 2 major 
categories: ciphers and codes. The most basic cipher, the 
substitution, works exactly as it sounds. During the encryp¬ 
tion process individual letters in an alphabet are consistently 
substituted for others. The result can appear confusing, but 
can easily be broken by frequency analysis. Each letter in 
every alphabetic language has a distinctive frequency of oc- 
curance. These frequencies are the Joy of the cryptanalyst 
(one who delights in cracking codes and ciphers. Edgar Allen 
Poe was notorious for his addiction — read "The Gold Bug"). 
Take, for example, the following substitution scheme: 

ABCDEFGHIJKLMN0PQRSTUVWXYZ0123456789. becomes 
01234567 89ABCDEFGHIJKLMNOPQRSTUVWXYZ 

Substitution of the word "CLEARTEXT" (means unencrypted 
information) produces the ciphertext (encrypted informa¬ 
tion): "2B40HJ4NJ." 

It looks cryptic but it isn't. Because of the multiple oc- 
curances of J' and '4' in the ciphertext one could safely as¬ 
sume that these characters represent the most frequently 
encountered letters in the English alphabet: 'E' and T'. Given 
a minimal amount of ciphertext even an inferior cryptanalyst 
can break this cipher. 

The second type of encryption, the code, is usually 
based upon substitution, except groups (not letters) of 
elements are replaced by an alternative notation. Stenog¬ 
raphy, where words and syllables are replaced by symbols, is 
a well known code. Codes based on substitution are as in¬ 
secure as substitution ciphers and because of their design 
are particularly unsuitable for computer automated en¬ 
cryption. 

Such is the insecurity of substitution techniques. But in 
one simple step a substitution cipher or code can be made 
absolutely unbreakable. Consider the following harmless 
series of "random" numbers: 

374 12 26651 

Now, using the substitution scheme shown above these 
numbers can be used to shift the lower sequence of charac¬ 
ters to the right Just prior to substituting. Thus the cleartext 
'C is no longer '71 but is shifted 3 digits to the right and the 
ciphertext character becomes '5'. This operation transforms 
"CLEARTEXT" into "5I8CJPASK." The randomness of the 
shift has eliminated the tell-tale letter frequencies. Repeated 
characters in the cleartext are no longer represented by uni- 
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VAX, PDP & DEC are trade marks of Digital Equipment Corporation 


I- 

I HAMILTON RENTALS 

j 6 Pearl Court, Allendale, N.J. 07401 

I PLEASE RUSH ME A QUOTATION BASED ON THE 

I FOLLOWING SYSTEM: CIRCLE ONE ONLY IN EACH LINE 

I Processor Mine 11/03 11/23 11/24 11/34 11/44 VAX 11/750 

I Disks RX02 RLOl RL02 RK07 RM02 RM80 

I Operating System RTll RSXllM RSTS/E VAX/VMS CTS 

I Software RABBIT RSTS UTILITIES RABBIT VAX UTILITIES 

I WORD PROCESSING OTHER_ 

I Rental 6 Months 12 Months 18 Months 

I Name _ 

I Position_ 

I Company_ 

I Address _ _ 

1 City __State_Zip_ 

I Telephone Number_ 

I RS 


. .With departmental budget cuts, high interest rates, 
hardware prices falling back, an upgrade down the 
road...” 

“But I’ve always bought PDP 11s. They’re the best.” 

“I didn’t say don’t USE a PDPll.. .just don’t BUY one!” 

“Huh?” 

“HAMILTON will rent you the latest in DEC 
systems —popular 11/23s, hot new 11/24s and 
11/44s, and all on a simple no-deposit monthly pay¬ 
ment basis. Great for fitting into tight budgets. You’ll 
get prompt delivery, the systems configured the way 
YOU want them, AND they’ll bundle in your choice 
from HAMILTON’S extensive software and utilities 
library.” 

“That sounds great, but don’t these rental schemes lock 
you in for 5 years?” 

“No, not if you rent from HAMILTON. If you know 
you’re never going to change so much as a terminal for 
3-5 years, then go talk to your bank about a long term 
lease. But, if you want the flexibility of upgrading either 
all or any part of your system when you need to, then go 
talk to HAMILTON about rental. They’ll listen.” 

“That’s really interesting. I didn’t know I had that kind of 
rental alternative.” 

“And what’s more, you can talk to HAMILTON about 
their rental-with-purchase-option plan which gives 
you the right to buy the system when you’re ready.” 

“But will DEC maintain my HAMILTON rental systems?” 

“DEC maintenance is already INCLUDED in your 
monthly rentals. Plus, HAMILTON handles all the 
shipping and guarantees you a really smooth installa¬ 
tion.” 

“HAMILTON certainly has a comprehensive rental pro¬ 
gram.” 

“Of course. They have more experience in renting DEC 
systems than anyone else, with thousands of installa¬ 
tions in Europe and North America.” 

“You know, if they hadn’t limited my department budget 
this year, I could have gone straight to a VAX 11/750. 
Hey. I don’t suppose HAMILTON rents.” 

“11 /750s? Of course! Call them now ... 

Toll Free 800-631-0298 
In New Jersey 201-327-1444 
In Canada 416-251-1166 

or complete the coupon for an individual rental quota¬ 
tion on a system of your choice.” 


HAMILroN 



One Penn Plaza, New York, N.Y. 10119 
415 Horner Ave., Toronto. M8W4W3 

LONDON PARIS DUSSELDORF CALGARY 


CIRCLE 10 ON READER CARD 
























page 14 December 1981 

RSTSPROFESSIONALRSTSPROFESSIONALRSrSPROFESSIONALRSTSPHOFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSrSPflOFESSIONALRSTSPROFESSIONALRSrSPROFESSIONALRSTSPROFESSIONALRSrSPROfESSIONAURSTSP 


formly identical characters in the ciphertext. This is the 
famous Vernam or "one-time pad" technique. As long as the 
series of random numbers is at least as large as the length 
of the cleartext character stream the cipher is unbreakable. 
This method is used by the hot-line between Washington 
and Moscow and it is also believed to be the only method 
used by Soviet agents. It is called the "one-time" pad be¬ 
cause the sequence of random numbers is used only once for 
each message. While not readily evident, multiple use of the 
same random number stream will make the cipher increas¬ 
ingly insecure. 

Every encryption algorithm must be invertible. That is, 
once information is encrypted there must be an inverse 
process to decrypt it. This inverse process is controlled by 
the crypting (meaning encrypting or decrypting key. The 
keys for the previously mentioned techniques are straight 
forward. The key for the simple substitution cipher is the 
table itself. The stenographer's key is the grammar that de¬ 
scribes the ins and outs of stenography. And the key for the 
one-time pad scheme is the sequence of random numbers 
coupled with the substitution table. 

A key should be what it sounds like: something small 
and easily hidden and protected. It opens some kind of path 
to a valuable asset. In this light the stenographic key is use¬ 
less. It's bulky, and worst of all, publically known. The sim¬ 
ple substitution key is not bad. but the algorithm is. The 
one-time pad's key seems usable and you can't beat the 
algorithm, but what happens when you want to encrypt a 
file of a million characters? A key of a million numbers is, 
for practical reasons, out of the question. 

Of the 3 encryption systems presented we see that 2 of 
them are insecure and one has a key management problem. 
Furthermore, these examples have dealt with language 
based alphabetic systems. Just how can encryption be ap¬ 
plied to the computer's limited alphabet of 1 s and O's? 

The PSYPHER system from Prime Factors solves the 
key and security problems by employing a variant of the 
one-time pad process. First, it uses fast algorithms for gen¬ 
erating long streams of random numbers. The generation 
technique uses recursive algorithms. Recursive algorithms 
are equations that "feed " themselves. Consider the simple 
equation: X,*, = X, + 5 (this is not a PSYPHER algorithm!). 
Every value of X depends on the previous value, and the 
equation must be "seeded " by some initial value, Xo. Let's 
say that Xo = 1. then X, = 1 -i- 5 = 6, and Xj = 6 -i- 5 = 

11 and so on. PSYPHER contains complex banks of special¬ 
ized recursive formulas that in combination produce a ran¬ 
dom number stream of a length in excess of 10'“ numbers. 
That is, 10'“ numbers are produced before the sequence 
begins to repeat itself. This number is called the period of 
the system. 

In operating such a system the user provides the seed 
(Xo). Each different seed produces a different sequence of 
random numbers. The series is always larger than any file 
any user would encrypt. PSYPHER utilizes a double key 
system, each key an integer between 1 and 2.1 billion. The 
result is about 4 X 10'® possible random number streams 
each greater than 10'“ numbers in length. The same "pad " 
need never be used twice and the stream is always longer 


than the file. Thus the requirements of the one-time pad are 
satisfied. 

What about the key management problem? This calls 
for a shift in nomenclature. The one-time pad's random 
number stream was called the key. Now we will refer to the 
stream as the "pseudokey" and the seed becomes the key. 
Thus the requirement of the key is now satisfied: it's com¬ 
pact and easily secured. 

Now, how can this ultralong pseudokey be used to en¬ 
crypt the binary alphabet? The secret lies in one of the most 
basic computer instructions: the exclusive OR (XOR). This 
procedure is extremely fast and is invertible. When com¬ 
puter words are XORed against each other a bit for bit com¬ 
parison is performed. The words are aligned and if the bits 
in corresponding positions are the same, the XOR result is a 
'1' in that bit position. If they differ the result is a O'. To il¬ 
lustrate this let's encrypt and decrypt the cleartext message 
"A." 

0100000101000001 Packed ASCII "AA" 

XOR 

0001101001110010 16 bit random number 

GIVES 

1010010011001100 ciphertext 

The ciphertext is clearly no longer ASCII codes and the 
redundancy of the double A" has been masked. To restore 
the cleartext simply XOR the ciphertext against the same 
random number. 

1010010011001100 ciphertext 
XOR 

0001101001110010 16 bit random number 

GIVES 

0100000101000001 "AA" again 

Now we have a complete encryption system. The 
PSYPHER system prompts the user to enter 2 keys between 
1 and 2.1 billion. This unique key combination initiates the 
generation of a unique pseudokey which is XORed against 
every byte in a file until end of file is encountered. To 
decrypt, the same keys create the same pseudokey which is 
again XORed against the ciphertext resulting in an error free 
bit for bit restoration of the cleartext file. Using different 
keys will initiate a different pseudokey and the result will be 
a "decrypted " file that is as much nonsense as the encrypted 
file appears to be. The task is accomplished: the user now 
holds a simple compact key set that can unlock gigabytes of 
protected information. 

The security of the system depends on the careful 
mathematical definition of the algorithms that generate the 
pseudokey. This requires state-of-the-art mathematical de¬ 
sign and cryptographic expertise. A simple linear congruen- 
tial generator, as provided in public program libraries, 
makes an absolutely insecure random number generation 
scheme no matter how confused the ciphertext appears. 
Programs exist that can read ciphertext generated by such a 
simplistic system and deliver the key in just a few CPU min¬ 
utes. The PSYPHER system contains a multitude of confu¬ 
sions and diffusions in its random number generating tech- 
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RABBIT-3 


JOB ACCOUNTING and 
PERFORMANCE MONITORING for 
RSTS/E VERSION 7 USERS 


RABBIT-3 is a complete performance monitoring and job accounting system designed 
especially for PDP-11 RSTS/E Version 7 users. Designed as a stand alone system, 
RABBIT-3 Is written entirely in PDP macro assembler for maximum operating efficiency. 
Fast and small, RABBIT-3 runs in 5K core with only a 1% (approximate) system degreda- 
tion depending on the sampling rate. 

RABBIT-3 Is flexible and easy to use. It's also easy to install. After loading the RABBIT-3 
tape or disk, just answer a few questions to tailor the system to your needs. In less than 
an hour of effort, your RABBIT-3 will be generating complete, detailed user information. 

RABBIT-3 is cheap. The basic system is available for $99/month. Furthermore you buy 
only the features you need to get your job done. Select from the options listed below: 



AVAILABLE OPTIONS FOR 
RABBIT-3 USERS 

AUTO-CRASH RECOVERY 

. . . automatic restart from system crashes. 

DAILY DISK CATALOG 

. . . generates disk accounting information 
for each user. 

SECURITY TRACER RECORD 

. . . provides step by step security informa¬ 
tion of user activities. 

A INC 


3336 N. Flagler Drive • West Palm Beach, Florida 33407 U.S.A. 
Telephone (305) 842-2115 

Offices in Canada and the United States 


\ 
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niques. Only the most careful analysis has determined that 
the pseudokey generation processes are virtually untracable 
and are without period degeneration. 

Here I've described only one of the algorithms employed 
in the PS'V'PHER system. The system offers a spectrum of 
security algorithms designed to allow the user to select a 
trade-off between runtime efficiency and desired level of 
security. Included is the U.S. Government s DES algorithm, 
an extremely secure cipher that does not employ random 
number generation techniques. The PSYPHER system is a 
complete ready to load and run module that performs 
simultaneous file compression, "in place" encryption of user 
defined fields within file records and encorporates many 
other security and convenience features. 

Thus far I've discussed some basics of encryption and 
have described the rudiments of stream ciphering (vs. the 
government's NBSDES block ciphering technique. The dif¬ 
ference is profound on all levels; from theoretical design to 
program implementation.) 

But on to the second part: Just how can the abstract 
concepts of data encryption be applied to the practical world 
of automated security? The first step is to more closely ex¬ 
amine some reasons for data protection. The following list is 
a non-comprehensive summary of situations calling for the 
reduction of data exposure risks. 

(1) Efficient banking practice has evolved an interbank net¬ 
work that transfers $400 billion daily over 99% in¬ 
secure communication channels. 

(2) The rapid move towards distributed data processing has 
necessitated constant data communications. 

(3) The automation of previously manually executed busi¬ 
ness functions has caused a dramatic increase of access 
to computer systems by company personnel. ^ 

(4) Electronic mail systems, growing proportionally with 
word processing systems, are. and will be, in extensive 
use. 

(5) The information glut has considerably increased the 
volume of offline and off-site storage of magnetic 
media. 

(6) Public time sharing installations are widespread and on 
the increase. This includes companies who, for economic 
reasons, are opening their computers to outside users. 

(7) In the absence of telecommunication facilities, com¬ 
panies are using the postal and courier services to trans¬ 
port magnetic media. 

This list is certainly not complete, but is sufficient to 
enable a classification of the 3 major areas of data exposure: 

• Off-site and offline storage 

• Online storage 

• Communicated information (telecommunicated 
or physically transported) 

Presently the possible solutions to securing information that 
fall into these classes are limited to products that aim at 
shielding only one of the 3 exposure areas. 

In mainframe computers online information may be 
secured by "access control systems." complicated systems 


that define who can access what files, when they may be ac¬ 
cessed. and from which terminals. This is fine for main¬ 
frame installations, but does nothing for the DEC user. 
Hardware encryption devices have been introduced to pro¬ 
tect telecommunications: but that's all they do. And there is 
no off-the-shelf product for protecting offline and off-site 
media. The usual solution is physical security. 

This leaves the DEC security scenario in a sorry state. 
Online access control is at best limited and simplistic (pass¬ 
word protection) and the cost of the last 2 targeted solu¬ 
tions can be steep if not prohibitive. Encryption communica¬ 
tion hardware can cost $5000 per node and the cost of good 
physical security, including magnetic locks, secured struc¬ 
tures and guard personnel is astronomical. 

PSYPHER services the 3 areas of exposure via a single 
product. The guiding principles behind the development of 
the PSYPHER system were cost effectiveness and gener¬ 
ality. Previous to the design of the system Prime Factors 
determined a set of encryption system characteristics that 
would meet the needs of generalized security. The result 
was the aforementioned GSDEU. 

The PSYPHER GSDEU is a marriage between specialized 
encryption algorithms and generalized 1/0 capabilities. In 
order to accomplish its full spectrum of security tasks, the 
GSDEU must be software and have the following charac¬ 
teristics: 

• It should run standalone. There should be no need to 
modify existing software. Installation and full operation 
is accomplished in hours. 

• It should encrypt on a file by file basis servicing virtually 
all file structures supported by an operating system. 

• It should offer the user the option of employing more 
than a single encryption algorithm. This offers the data 
manager trade-offs between degree of security and run 
time efficiency depending on the nature of the data to 
be protected. 

• It should have the ability to partially encrypt file 
records. Under most circumstances only a fraction of a 
file's contents (e.g. names and addresses) contain pro¬ 
prietary information. Partial, or "field " encryption saves 
on run time and provides the distinct advantage of 
allowing the user to operate (sort, merge etc.) on the 
unencrypted portions of file records. 

• It should offer additional useful and money saving ser¬ 
vices. such as file compression, that should be per¬ 
formed within any utility that manipulates every byte 
in a file. 

• It should provide more than one kind of encrypted out¬ 
put to facilitate compatibility with communication 
hardware. In particular, encrypted output should be 
available in binary stream or character coded forms. 

• It should be available for use in bath or interactive 
modes. 

Now. let's examine how the PSYPHER GSDEU can ac¬ 
complish protection in the 3 areas of data exposure. First, 
the GSDEU can be used to encrypt all off-line media. On-site 
physical security may be relaxed because the threat of illegal 
copy is nullified. The result: reduced costs. In addition, file 
compression significantly reduces the amount of physical 
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RSTS users! 


Oregon Software 
Sort-l-Plus 

U ... I would like to single out two of the 
many products that I have personally 
bought and paid for. The first is OMSI Sort 
Version 1.6.1 have used OMSI Sort since its 
original release as a macro replacement for 
SQWIK and MQWIK, the old DEC type-1 
header sort. It was the best software buy I 
ever made, yielding staggering reductions in 
run time. Version 1.6 contains the final 
additions to a fine product - the macro 
rendition of XQWIK and OQWIK, the extract 
and reordering portions of the sort. 
Amazingly fast and truly flexible. Bravo! 


Software 

Techniques DISKIT 

U The second entrant to my ‘Hall of 
Fame’ is a package from Software 
Techniques called DISKIT. 

...Using DISKIT, I created 130 accounts and 
fully extended their centred UFD’s in three 
minutes and forty seconds (a job that used 
to take four to eight hours). I then copied the 
full contents of a 300 M b RM05 equivalent 
to this new ‘well structured’ disk in 
45 minutes, optimising clustersize and 
contiguity in the process. I (for once) was 
speechless... The documentation is 
excellent. In short, this package is the ‘final 
solution’ to structured disks, eliminating all of 
the time and complexity and reducing the 
job to one of the simplicity of a SAVRES. 

Editor Dave Mallery 

reprinted from March 1981 
RSTS Professional magazine 


Recommended by RSTS Professional 
Now available from RTP. 


* Is a complete replacement for * DSU A disk backup utility for creating 

$SORT- no other software required optimum structures. 

* Sorts in excess of 32767 records * DIR A complete replacement for $DIRECT 

* Handles records across block boundaries that runs twelve times faster 

* Up to 50 times faster than * OPEN An ‘open files’ display 

$SORT Call Ed Patient or Steve Collins program (‘control F’) 

* LIBRARY For BASIC PLUS 2 
users a library of disk handling 
routines 

* Costs £1250-00 

neoLTime PPODUCTB 

1 Paul Street, London EC2 A 4JJ. Telephone 01-588 0667 

OMSI, Sort-1-Plus are trademarks of Oregon Software. DEC. RSTS are trademarks of Digital Equipment Corp.. DISKIT, DSU are trademarks of Software Techniques, Inc. 
Portland. Oregon. Maynard. Mass Los Alamitos, Ca 
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Storage space required because of the reduced number of 
volumes to be stored. 

Second, the GSDEU protects on-line files from accidental 
or purposeful disclosure. It compensates for the inadequate 
security of standard operating system passwords. A file 
that is encrypted has its access implicity controlled. That is, 
the file itself may be accessible, but for all practical purposes 
its contents aren't. 

Third, the GSDEU can virtually replace hardware en¬ 
cryption in telecommunications. In some ways the software 
solution is better. The absence of hardware means no instal¬ 
lation costs, no down time, and the inevitable hardware 
malfunctions are avoided. 

The GSDEU's compression facilities perform functions 
beyond the scope of hardware devices. Compressed data not 
only reduces transmission times and costs, but offers 
greater security. This is due to the fact that repetitive infor¬ 
mation in encrypted files makes the encoded text more sus¬ 
ceptible to being broken. 

The GSDEU's encryption algorithms can produce output 
in binary or character coded forms and records may be fixed 
or variable length. This allows tailoring the encrypted infor¬ 
mation to the computer's communications gear rather than 
the other way around. 

This completes the discussion about how the GSDEU 
can successfully service the 3 major areas of data insecurity; 
but what about the security of the encryption algorithms 
and their run time efficiencies? Presently there is con¬ 
siderable debate within academic circles about the degree of 
security inherent in each of many possible algorithms. This 
is all debated with little or no concern for the pragmatics of 
production data processing. Obviously, one does not employ 
an algorithm that encrypts at 500 bytes per CPU-second to 
continually encrypt and decrypt a 5 megabyte file. In gen¬ 
eral. it appears that the relationship between processing 
time and subjectively estimated degree of security is geo¬ 
metric; processing time increases at a very fast rate with 
the "more complex " algorithms. 

The solution to the security-efficiency problem is to 
make more than 1 algorithm available to the user. Then, in 
most cases where information is of extremely sensitive 
nature and relatively short length, the user employs a 
slower, more "secure" algorithm. But when it comes time to 
encrypt a mailing list of 100,000 names, the algorithm with 
the faster runtime is the likely choice. The ideal GSDEU has a 
number of user selectable algorithms of different design 
running from 500 to 10,000 bytes per CPU-second. It is im¬ 
portant to allow the user to determine the proper trade-off 
between runtime efficiency and degree of security. 

Let's take a brief look at the application of the 
PSYPHER GSDEU to the RSTS system. Two of the major 
data exposure areas, offline storage and data communica¬ 
tions are independent of the system and any protection it 
may provide. Therefore if an installation has weak physical 
security or is communicating data via any medium. 
PSYPHER is the only protection against data copy and 
capture. 

RSTS can only offer limited protection to online files via 
sign-on passwords and rudimentary access control pass 


codes. Just how effective are these "protections"? Breaches 
of sign-on passwords are well known and published. High 
School students have breached both sign-on passwords and 
file access pass codes on much more elaborate mainframe 
operating systems. And studies have shown that these il¬ 
legal penetrations have occured with much greater fre¬ 
quency than have been reported. An estimated 1 in 10 
security breaches resulting in breaking federal or state laws 
go unreported. This is because such occurances would 
frighten corporate stock holders, drive away time sharing 
business, and embarass management. 

It is this writer's opinion that RSTS security will be 
breached (if it hasn't been already) when the "work-break 
cost," the cost of researching and writing the breach code, is 
sufficiently low compared to the value of the information to 
be fraudulently added, altered or replaced. Computer crime 
is a business, the work-break cost is simply the break even 
point in the cost of perpetrating the fraud versus the ex¬ 
pected financial returns. With the increased use of RSTS and 
VMS systems by large financial institutions, the work-break 
cost is now very low compared to the illegal gains. 

Another problem is the case of the privileged user. Un¬ 
like most mainframe installations, minicomputer sites tend 
to be lax in freely assigning privileged accounts to too many 
individuals. If proprietary data is present, the risk of some¬ 
one gaining illegal access grows significantly with the num¬ 
ber of privileged users. It's simply too easy for an outsider to 
learn the proper pass codes for global access, especially 
when the privileged user often works in common user 
rooms. The privileged account is an obvious convenience. 
But it takes only seconds to obtain the proper pass codes 
with a wire tap or a glance over a shoulder. 

Finally there's the problem of the operators console. 
Any unauthorized individual who gains access to the main 
console has unlimited browsing power, usually without the 
need for any pass codes. Highly restricted physical access 
(other than proper encryption) is the only solution. 

In summary, the need for data security is rising. There 
must be a cost effective tool for maintaining privacy and 
data integrity. In many cases the law requires (personal, 
medical and government data) via the Privacy Act that an 
installation take all available measures to insure data pri¬ 
vacy. The PSYPHER system gives the user virtually complete 
control over his own files. PSYPHER GSDEU encryption in¬ 
sures the user that his proprietary files will remain secure 
and undisclosed independent of the degree of physical se¬ 
curity. the operating system, illegal system penetrations, 
and misused privileged user access. An investment in en¬ 
cryption is simply paying a one time insurance premium 
against a theft or accident that one hopes will never occur. 

Prime Factors is a software and consulting firm specializing in the area 
of software data security. Its primary product. PSYPHER. is presently in use 
on IBM. DG. and DEC computers. Other products available are callable DES 
modules (DESCRYPT'^). an exact implementation of the National Bureau of 
Standard’s Data Encryption Standard; and PSYSUBS'^'^. a callable version of 
the stream ciphering algorithms in PSYPHER. 

Michael Schwartz is owner and founder of Prime Factors. His staff con¬ 
sists primarily of mathematical and computer scientists out of the Univer¬ 
sity of California. Interested parties should contact: 

Prime Factors. 6529 Telegraph Ave.. Oakland. CA 94609 

(415)654-5090 ^ 
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TTYSET Optional Patch for 
VT100 Width Changes 

By David Spencer. Infinity Software, Inc. 


One of the great features of the VT100 is the ability to 
switch between 80 and 132 column mode. When the VT100 
was put on the market, I couldn't wait to get my hands on 
one. No longer, I thought, would I have to hassle with trying 
to read wide reports on a VT52. 

Well. I finally got a VT100, and things didn't work out 
like I thought they would. In order to examine my wide 
listing. I had to hit SET-UP, hit the 132-COLUMN key, hit 
SET-UP again, and then run TTYSET to change my width to 
132 columns. Of course, after about doing this once or 
twice, it was time to get more sophisticated. 

There are several alternatives. One is to always run the 
VTIOOs in 132 column mode. Another is to write two little 
programs as CCLs that do the switch and SYS() call 
themselves. My solution was to patch the TTYSET program 
to send an escape sequence to the terminal when you 
change its width. 

The following is a patch to the TTYSET program to 
switch VT100 terminals automatically to 132 or 80 column 
mode when the width is changed. This can be done easily 
because the TTYSET "VT100" macro sets "XON a feature 
no other devices utilize. (Using "XON" to check terminal type 
is used by DEC software like EDT version 2.) 

One new variable has been added to TTYSET. WIDTH% 
is a flag to prevent sending VTIOOs the width change se¬ 
quence each time a parameter is changed. If you wish to 
leave your VT100 in VT100 mode after switching widths, 
remove the last escape sequence to switch back to VT52 
(<esc>[?2l). One note, this patch has been implemented to 
send the width change sequence to terminals other than 
your own if they are specified. 

The TTYSET patch can applied with the CPATCH auto¬ 


patch program. (If in doubt, see the RSTS/E V07.0 System 
Manager's Guide.) 


•G/2/V<cr> 

2!<tab><tab>PROGRAM<tab><tab>: TTYSET.BAS<cr> 

•H/1040<tab>/V<cr> 

1040< tab>GOTO 1530 IF C$ = "HELP ' &<cr> 

•|<cr> 

WIDTH% = 0% a<cr> 

<tab> \ <esc> 

*V<cr> 

<tab>\ GOTO 1530 IF C$ = "HELP" &<cr> 

•H/1240<tab>/V<cr> 

1240<tab>G0SUB 12100 &<cr> 

*AI<cr> 

<tab> \ WIDTH% = V% &<cr> 

<esc> 

•V<cr> 

<tab> \ IF E% = 0% AND V%>1% AND V%<256% THEN &<cr> 
•H/1430<tab>/V<cr> 

1430<tab>G0T0 1500 UNLESS LEN(F$) &<cr> 

•0AI<cr> 

1425<tab>M%(4%) = ASCII(MID(SYS(CHR$(6%) + CHR$(9%)).2%.1%))/2% &<cr> 
<tab><tab><tab>IF M%(4%) = 255%&<cr> 

<tab> \ IF WIDTH% = 81% AND M%(9%) = 255% THEN &<cr> 

<tab><tab>C1$ = SYS(CHR$(6%)-(-CHR$(-5%) + CHR$(M%(4%)) &<cr> 

<tab><tab> 

<tab><tab>! GET KB " GET OUR OWN TO SET UP COLUMN CHANGE FOR VT100 &<cr> 
<tab><tab>! IF WE HAVE XON AND WIDTH OF 80 THEN &<cr> 

<tab><tab>! BECOME VT100. SWITCH TO 80 COLUMNS. BECOME VT52 AGAIN &<cr> 
<cr> 

1427<tab>IF WIDTH% = 133% AND M%(9%) = 255% THEN &<cr> 

<tab><tab>C1S = SYS{CHR$(6%) + CHR$(-5%) + CHR$(M%(4%)) &<cr> 

<tab><tab> 

<tab><tab>! IF WE HAVE XON AND WIDTH OF 132 THEN &<cr> 

<tab><tab>! BECOME VT100. SWITCH TO 132 COLUMNS. BECOME VT52 AGAIN &<cr> 
<cr> 

<esc> 

•V<cr> 

1430< tab>GOTO 1500 UNLESS LEN(F$) a<cr> 

*EX<cr> 

t 


David Spencer's VTEDIT.TEC, discussed in the last issue, can be found on page 70. 




^ DEC best values ^ 

DUMPER-FILE BACKUP UTILITY 

• Much faster than BACKUP 

• Supports RSTS Large-File 
feature 

• Ideal for big databases 

• Proven and reliable, easy to use 

PRE-OWNED DEC EQUIPMENT 

BUYING AND SELLING 

SYSTEMS • CPUs • PERIPHERALS • TERMINALS 
OPTIONS • MEMORY • COMPATIBLES 

CALL DICK BAKER (305) 979-2844 
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^ith DEC Just concentrate* 



The new Emulex CS-11/H really 
concentrates your communications 
I/O Just one hex size board multi¬ 
plexes up to 64 lines 


applying the latest microproces¬ 
sor technology and some sexy 
design to give our customers the 
performance and reliability 
they deserve. 

Our newest achievement 
proves the point. To wit; just one 
hex size board, occupying a 
single Unibus slot, provides up 
to 64 lines for terminals, printers 
or other communications I/O. 
That's eight times more efficient 
than the DEC approach. 

And our unique system 
organization means maximum 
flexibility. You can daisy-chain 
up to four remote distribution 
panels, expanding in 8 or 16 
line increments all the way to 
64 lines. You can configure any 
8 line group for an RS-232 inter¬ 
face, with modem control a stan¬ 
dard feature. Or you have the 
option of selecting a current loop 
interface. And because all your 
interface variations are made 


We've earned our reputa¬ 
tion by designing and delivering 
dependable, easy to live with 
tape and disk controllers for DEC 
CPUS. Products that really showed 
the industry how to do it. 

Now we've cleaned up the 
communications I/O morass, 
with a new DH-11 type multiplexer 
for PDP-11 and VAX systems. 

It duplicates all the features of 
DEC'S DH-11. And it goes well 
beyond, delivering improved line 
handling capabilities in a far 
smaller package and at signifi¬ 
cantly lower cost. 

You might say we're now 
doing for communications con¬ 
trollers what we’ve already done 
for tape and disk controllers — 


at the distribution panels, no 
additional hardware or cpu 
restructuring is needed when 
you add channels. 

You get everything you got 
from DH-11. such as DMA on 
transmit operation and line format 
flexibility. Naturally, we're fully 
software transparent and run 
existing DEC diagnostics. 

But we like to do everything 
we do just a little bit better than 
the other guy. So we boosted 
performance to 19.2 K baud per 
line. For peak traffic, we can 
“double fifo” to 128 characters 
per 16 lines. Multiple control¬ 
lers can be added for increased 
capacity. You get full 16-bit word 
transfers on DMA operation — not 
just byte transfers. And. of 
course, we've taken advantage 
of our system's high speed 
bipolar microprocessor to build-in 
extensive controller and channel 
self-test and fault indicators. 

We re concentrating on DEC. 
making the world's best CPUs 
even better with some ingenious 
controllers. We've done it for 
tape and disk interfacing. Now 
for communications I/C. 

For off-the-shelf delivery 
(U.S. A.}, contact; First Computer 
Corporation. Corporate Square. 

825 N. Cass Ave.. Westmont. IL 
60559. Telephone; (312) 920-1050. 

For complete information 
(U.S.A.}, call or write; Emulex 
Corp., 2001 East Deere Avenue. 
Santa Ana, CA 92705. Telephone; 
(714) 557-7580; TWX; 910-595-2521 

In Europe; Emulex Corp.. 10th 
Floor, Cory House. The Ring, 
Bracknell, Berkshire, ENGLAND. 
Telephone; 0344-84234; TELEX; 
851-849781. 



EMULEX 

The genuine alternative. 
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SOFTWARE PROTECTION: 
WHAT IS IT REALLY? 

By Robin Robinson. Mini-Computer Business Applications. Inc. 


Mention software protection to most people and they'll 
say "What?" Mention it to lawyers and they'll say "Right... 
copyrights, trade secrets, patents, contracts . . Mention it 
to the guy who spends much of his time actually trying to 
protect the stuff and he'll groan. 

There are relatively few in the software industry 
who've faced the day-to-day battles straightening out the 
messes their software got into. A software house is for¬ 
tunate if they have just one full-time employee chasing 
down offenders—who run the gamut from not knowing 
any better to the out-and-out thieves. There's a quiet insan¬ 
ity that accompanies his job. as no sooner does one violation 
get resolved than another one shows its ugly head. And the 
truth is. with a large vendor, it's normally not just one at a 
time. Few understand the dilemma because they don't face 
it eight hours a day. Hence, it isn't discussed much. But put 
a few of these "software protectors" in a room together and 
the chatter will go on for hours. Far more than the safely 
distant and pedantic recital of "copyrights ... trade secrets 
.. . patents, etc." the software protector is put in the trying 
position of making others understand what these mean suf¬ 
ficiently enough to prevent the need for a courtroom judge 
to do the educating. Courts and lawyers are. after all. 
expensive. 

THE REAL PROBLEM 

The problem faced by vendors and software protectors 
Is that software gets stolen. Surrounding all such thievery is 
an ignorance of what's supposed to accompany software, 
and how it's supposed to be protected by those who've been 
entrusted with it. Users of all types often do not realize that 
software is usually the proprietary property of a vendor, and 
that the use of the packages is a licensed use. Frequently, a 
"seller" represents the transaction as a "sale" and the user 
proceeds with his use of the software with this understand¬ 
ing in mind. Hence, a consultant or OEM (or even the guy 
next door) may request to purchase a copy of the users 
"property" and the user, not knowing differently, will be 
happy to provide him with one for a small fee. It's not 
unlikely that the vendor will hear about this years after the 
fact, and after the software has passed through the hands 
of three or more companies—with the first two or three of 
them now out of business. The rhetorical question presents 
itself to the software protection "Where do you suppose our 
software is now?" 

WHO GETS HURT? 

The difficulties encountered are shared by all segments 
of the industry. Unauthorized copying of computer software 


is a contagious disease, compounded by the fact that many 
of the recipients of the now "illegal" packages don't always 
know they've been exposed to the potential losses involved. 
A rather devastating example: Company A purchases a one- 
use license from a vendor, and then issues multiple copies of 
the packages. That's violation number 1. Company A then 
does a few other things: he sells one of his users a leased 
machine; he fails to deliver packages he's sold: he fails to en¬ 
sure the packages are covered by a license or sublicense 
agreement; he fails to support those packages he does issue; 
and then he skips town. This example is not too far off the 
beaten track. What Company A has done is he left a large 
handful of users holding the bag. The vendor is faced with a 
group of understandably irate users, many of whom may 
have source code. Despite an excellent contract designed to 
prevent this sort of thing, the problem still faces a vendor as 
to what to do now? Ignoring it may be the easiest choice, 
but to do so runs the risk of weakening its trade secret pro¬ 
tection. Besides, it's not unlikely that the users have formed 
a sort of modern-day vigilante committee who seek justice 
where there apparently is none, they've already paid so 
much money to Company A, they aren't about to pay the 
vendor for the packages and support they still need, at the 
vendors' usual rate. And in the wings are probably one or 
two consultants ready to take advantage of the situation. 
Try asking any of these users what they think of the soft¬ 
ware industry now and you're likely to get run out of town. 
Ask the vendor, and the other consultants involved, while 
you're at it. Situations like these don't leave any fond 
memories. 

EFFECTS ON END-USERS 

On a smaller scale, end-users are frequently left in the 
cold when it turns out that their supplier (OEM) didn't have 
the rights he claimed to have when the packages were 
issued to the users. Often, the user doesn't receive a written 
agreement for use of the proprietary software and therefore 
doesn't realize it belongs to some vendor located miles away 
in some other state or country. It usually isn't until negotia¬ 
tions between the OEM and end-user breakdown that the 
user discovers he's gotten hold of some “hot" software — in¬ 
formation that's often given him by the new consultant he 
calls in. The vendor gets a phone call, which is frequently 
how he finds out the original licensee was messing around, 
and now the software protector has two problems on his 
hands: an end-user who maybe has his source code and no 
license agreement (and a bitter taste in his mouth); and an 
OEM or licensee who's been violating his license agreements. 
The details always vary, but can range from a user being out 
anywhere from $100 to $50,000 for the software alone. 
Sometimes more. The software protector will often hear the 





December 1981 page 23 

RSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFISSIONALRSTSPROnESSIONALRSTSPROFESSIONALJ^STSPROFESSIONALRSTSPROreSSIONALRSTSPROf^lONALJCT^PROf^lONALi^STSPROFESSIONALRSTSPRO 


- 

AARDVARK SOFTWARE 
introduces the com p lete 
UCSD PASCAL system 
available under RSTS/E 
for the PDI^II family. 

Not merely a compiler! 


This system was designed to facilitate software 
development and create an ideal Pascal teaching 
environment. Designed and developed by 
John Hayward, Ph.D. of Wheaton College, 
Wheaton, Illinois. 


ADVANTAGES 

*Based on enhanced UCSD PASCAL, utilizing: 

• long integers 

• strings 

• segmented procedures 
*Simplified user interface—automatic linking 
*Powerful screen editor 

*Compatible with UCSD microcomputer systems 
*Supports “random access ” of files 
*lncludes Assembler 


Price: $995 




Write us, or call toll free for information: 1-800-558-1538 

AARDVARK SOFTWARE IIMC. 

783 North Water Street 
Milwaukee, Wisconsin 53202 

UCSD PASCAL is a trademark of the Regents of the University of California. 

PDP-11 and RSTS/E are trademarks of the Digital Equipment Corporation. 
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tears in the users voice when he calls in his story. There are 
hundreds of stories like this which fall in the lap of software 
protectors. One even hears about a demonstration package 
(object code only) actually being sold to an unsuspecting 
end-user with the assurance that this applications package 
would solve his needs. The seller collects more than $7,000 
from the user and goes on his merry way. The user soon 
discovers problems with his package and. after failing to 
reach his original supplier, contacts the vendor. After hear¬ 
ing the first hundred or so tales like these, it's no longer 
news. Just another story in a long string of abuses. 


EFFECTS OF OEMS 

The unethical blackmarketeer (as well as those who 
don't know any better) almost invariably leave behind a 
computer system that won't function and a user who's 
quarterly statements are due tommorrow. As software, in 
general, is mysterious magic to those who don't know how 
it works, it takes a certain amount of trust for a user to hire 
a consultant on in the first place. Once he's had an ex¬ 
perience with a software thief, or a software buffoon, he's 
not all that likely to be so easy to get along with when the 
next OEM or consultant comes along. And, he's probably 
warning his local colleagues about those "computer guys 
. . . who'll take you for all they can get." The honest and 
ethical consultant is not only faced with these effects, but 
are also faced with trying to keep their business afloat (if 
not thriving) against the competition only a blackmarketeer 
can provide (the thief having little overhead as he didn't 
have to pay for the rights to the software to begin with, and 
he's not paying royalty fees either). Confused and bearing 
the brunt of this storm, the ethical OEM may begin to feel 
it's wiser to follow in the footsteps of his competition. 

Not all do, of course, but again the stories abound. One 
OEM caught another consultant at one of his end-user sites 
stealing disk packs which contained a vendors software 
with whom the OEM had signed a license which included a 
clause requiring the licensee (OEM) protect the trade secret 
and confidential nature of the software. The OEM later 
wrote the vendor about the occurance, explaining he'd have 
stopped the thief if he hadn't noticed the revolver tucked in¬ 
to the thief's belt. A more ordinary method of approach has 
been for an OEM to contact the vendor asking if one of his 
competitors is properly licensed for use of the vendor's soft¬ 
ware. This approach is frequently not used, however, due to 
the OEM's wish not to become involved in any potential legal 
proceedings. 


EFFECTS ON THE SOFTWARE VENDOR 

Not only is a vendor faced with the competition pro¬ 
vided him by other software vendors, he can also find 
himself in competition with his own pirated software. A 
licensee who's acquired source code from a vendor may 
modify the packages to such an extent that he feels the 
packages can no longer be considered the property of the 


vendor. Hopefully, the vendor has a strong contract to the 
contrary, but in attempting to enforce it after the fact of 
distribution by the "ex-licensee", one loses some leverage, to 
say the least. The one advantage in a situation such as this is 
the fact that there's a license somewhere that can be 
discussed in court, if need be. But if a software pirate has 
gotten copies of the code, and Jazzed it up with a few bells 
and whistles, a vendor is faced with having to acquire a copy 
of the packages by one means or another just to ascertain 
whether or not it belongs to him. And if it does, the vendor 
will likely be spending the next few years in court. 

ALIENATED SOFTWARE PROTECTORS 

Unless one's software runs hand-in-hand with another 
vendors packages, those who spend their time trying to pro¬ 
tect software (in-house) don't really know who one another 
are, and consequently, can't help one another out. Hence, 
there's no easy access to individuals who are trying to pro¬ 
tect software for languages other than those used by the 
vendor for whom the protector works. And those who do 
protect the same language as one's own, are one's com¬ 
petitors. There's a whole network of computer systems and 
software packages that contains, from a protection stand¬ 
point, relatively few crossroads. The result is a number of in¬ 
dividuated cells of activity, each trying to accomplish the 
same end result in terms of protecting one's own software, 
and never having the opportunity to really talk about the 
problem, or at least have a bigger look at the picture. And 
the picture is a big one. 

IS THERE A SOLUTION? 

Unbeknownst to one another, there is very likely a 
small army of software protectors and vendors who've each 
developed methods which could be useful to the others in 
the field. There are those who've virtually become experts in 
their day-to-day software protecting: experience which 
could easily be shared. Beyond this, however, is an even big¬ 
ger opportunity: that of combining the common interests of 
protecting software (no matter who it belongs to) from 
those who are ignorant about the "rules" and those who 
could care less about them. Hoping for legislative protection 
and assistance, or depending on one's lawyer, fails to ad¬ 
dress the problem realistically, and it's losing software ven¬ 
dors valuable time and money . . . time in which the ig¬ 
norant and blackmarketeers alike could conceivably cripple 
the industry. No one individual can really straighten out all 
the messes their software can get into, at least not in the 
current environment. True, there are "tricks" which can be 
utilized to prevent theft, but there are those who are just as 
fascinated with undoing the tricks as a programmer is in 
developing them. 

The needs of software vendors and protectors have not 
been fully identified as a whole, but the need for a combined 
effort has more than adequately presented itself. Com¬ 
puters are a remarkable contribution to the business world. 
The software that makes those fancy systems play music to 
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FDP-U&Vi^'iisers 


ComDesign’s TC*3 Concentrates 
Multiple Terminals and Printers 
on a Single Telephone Line 
Cost-Effectively for the 

FDP-U and ViOi. 


1 CONCENTRATIOIM 

Many terminals-one line 

PROVEN RELIABILITY 

TC 3s are in use world wide 

I STATISTICAL MULTIPLEXING 

Efficiencies to 400/0 

I BUILT-IN SYSTEM MONITORS 

Real time data and signal displays 


COST SAVINGS TO 40% 

Totally eliminates DZIls and cables 

ERROR CORRECTION 

Data checked with all errors 
eliminated automatically 

FAST ECHO RESPONSE 
-at last! 

POWERFUL DIAGNOSTIC PANEL 

Modem loop-back, unit self-tests, 
and terminal diagnostics 


Put a TC-3 on Your UNIBUS And 
Get a DZll with Stat Muxing too! 

“We are impressed ... have already recommended the unit to a 
number of other RSTS/E users and shall continue to doso .. 
Intercontinental Forwarders, Inc. 

See us at DEC USER SHOW. Booth ^123 
For further information and the sales office for your area 
Call toll-free(800)238-6938 or in Calif. (805) 964-9852 


ComDesign 


ComDesign, Inc 

751 South Kellogg Avenue 

Goleta, California 93117 

•Registered Trademarks of DEC 
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a businessman’s ears is a miraculous 
development requiring hours and 
hours of sweat and brilliance to pro¬ 
duce. The vendor who has cared 
enough to produce a package (or 50 of 
them) that will make the lives of 
others easier is to be commended. 

True, he's in the business to make a liv¬ 
ing for himself. Maybe he’d even like to 
get rich. But if he's any good at all, he's 
not riding on the wings of someone 
else’s creativity and hardwork. He’s 
producing something new. and 
hopefully better. And it's costing him a 
good chunk of money to do so. To then 
release this into a marketplace full of 
users who see the value (threatened 
with thieves who also see the value) 
places the vendor in an unenviable 
position. His software protection peo¬ 
ple (or person) have to be sharp; have 
to know where to look at what to 
listen for; and then have to act fast 
when something’s amiss, without hav¬ 
ing to resort too often to outside at¬ 
torneys and courtrooms who could 
very well eat whatever profits come in. 

Software protection individuals 
and efforts could well use some 
organization. The marketplace (end- 
users and OEM's alike) are in dire need 
of understanding the situation and its 
ramifications. Without adequate pro¬ 
tection, both by the courts and on a 
day-to-day basis, the honest and pro¬ 
ductive vendor could be forced to close 
his doors. An Association for Software 
Protection (ASP) has long been needed, 
but has only recently been formulated 
by three software vendors who share 
the same problems. It is a bright idea 
needing support and contributions. 

Theoretically, it could prove to be a 
vehicle which introduces software pro¬ 
tectors to one another and help them 
to create a marketplace in which a 
blackmarketeer wouldn’t dream of 
treading and in which end-users know the rules up front; 
before the troubles begin. The form and activities of such 
an association would obviously need to respond to the input 
received from other software vendors and protectors; in¬ 
formation which, due to the present alienation, has previously 
lacked any organization. Those interested in participating 


at the mini-computer level, are invited to contact the author 
(in writing) at 117 South Brand Boulevard, Glendale. Calif 
91204; or Ms. Adrienne Webb. Digital Information Systems. 
Inc., 6247 Fair Oaks Boulevard. Carmichael. Calif 95608; or 
Mr. Dale Coleman. S8iH Computer Systems, Inc., 1027 17th 
Avenue South. Nashville. Tennessee 37212. 


LOOK at the "tear-out” cards in this issue. 

There’s a "HOT to COLD" form for rating our articles. Let us know what is most and least interesting to you. 
There’s a FREE gift for you. Bring in new subscribers and collect rewards. See "BOUNTY HUNTERS ” card. 
There’s a READER INQUIRY card for your convenience. 



















Introducing, for PDP-11 RSX,RSTS/E, and rt-ii users 

RLScal-2 

TheTime Machine 


The First Dimension: Performance 

Pascal-2 performs. 

Pascal-2 programs run as fast as 
FORTRAN iv-PLUS programs—or faster. 
(FORTRAN IV-PLUS Is Digital’s fastest 
PDP-11 high-level language.) Pascal-2 
code is as small as code generated by 
any Digital PDP-11 compiler or interpre¬ 
ter—or smaller. And Pascal-2 typically 
compiles at 1000 lines per minute. 

The Second Dimension: 

Structure and Portability 

As a programmer, you can write in a 
language close to your thoughts. With 
Pascal’s structured methods, you can 
do the job right the first time. It’s easier 
to design in Pascal than it is to debug 
in FORTRAN, assembler, basic, orcOBOL. 

As a software manager, you will see 
the value of Pascal in improved com¬ 
munication among team members: 
they can understand one another’s 
code. Pascal’s portability will protect 
your software investment; your 
programs will outlive your current 
hardware. 

The Third Dimension: 

Tools, Tools, Tools 

The compiler precisely reports typo¬ 
graphic or syntactic errors. The inter¬ 
active, source-level debugger helps 
detect deep-rooted logical errors. 

The profiler helps identify code that 
can be rewritten to speed program 


execution. Also included are format¬ 
ters, index generators, and documen¬ 
tation aids— a total of 70,000 lines of 
Pascal code. 

Our 2,000 customers use Pascal for 
such diverse applications as general 
ledger and payroll, integrated circuit 
design graphics, word processing, 
typesetting, and off-track betting; for 
trimming integrated circuits, monitoring 
particle accelerators, real-time ballistics 
modeling, and controlling saws in a 
lumber mill. 

The Fourth Dimension: 

Our Past and Future 

The core of our technical group has 
been together more than a decade. 

Our Pascal-1 compiler entered com¬ 
mercial use in 1975. Before releasing 
our PDP-11 product, we delivered 
Pascal-2 under contract to two major 
computer manufacturers for three 
different processors. Now we’re mov¬ 
ing Pascal-2 to Motorola’s MC68000, 
to Digital’s VAX-11, and to the Unix 
operating system. We’re committed 
to Pascal for the long term. 

Call or write. We’ll send benchmark 
details, a product description, and a 
free copy of the Pascal-2 manual 
(specify Rsx, rt-ii, rsts/e). 

PDR VAX. RSX. RSTS/E. RT- 11 . and FORTRAN IV-PLUS are 
trademarks of Digital Equipment Corporation. MC68000 
Is a trademark of Motorola Inc. UNIX Is a trademark of 
Bell Laboratories. 


I^scal'2: The Dimensions of Performance 

Ask for a free 18 ”x 24” poster of this photograph. 


Network Computer Services 
6 Cunningham Street 
Sydney 2000, Australia 
Telephone; 211-2322 
TLX;25523 

Valley Software, Inc. 

6400 Roberts Street, #390 
Burnaby. BC Canada V5G 4G2 
Telephone; 604-291-0651 


Hoards Computing, Ltd. 
7-8 Mill Street 
Stafford ST16 2AJ. England 
Telephone; 0785-44221 
TLX;36540 

Real Time Products 
1 Paul Street 

London EC2A 4JJ. England 
Telephone; 01-588-0667 
TLX.884971 


Rikei Corporation 

1-26-2 Nishi Shinjuku 
4316 Shinjuku-ku 
Tokyo 160, Japan 
TLX; 24208 

AC Copy 

Kurbrunnenstrasse 30 
D-5100 Aachen 
W. Germany 
Telephone; 0241-506096 
TLX;832368 


Periphere Computer 
Systems GmbH 
Pfalzer-Wald-Strasse 36 
D-8000 Munchen 90 
W. Germany 
Telephone; 089/681021 
TLX;523271 


Oregon 

Software 

2340 S.W. Canyon Road 
Portland, Oregon 97201 
(503) 226-7760 
TWX; 910-464-4779 
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ATPKED: At-pee-kay 
BASIC-PLUS LINE EDITOR 

By William L. Baker, Pig Improvement Corporation 


1.0 ABSTRACT 

This article describes the implementation of new com¬ 
mands for RSTS/E version 7.0 utility ATPK. The commands 
will take some of the unfriendliness out of the otherwise 
friendly BASIC-PLUS environment by combining the func¬ 
tionality of ATPK with editing of basic without the use of an 
editor program. 


2.0 BACKGROUND 

The principal advantage to BASIC-PLUS is programmer 
productivity through the interactive program development. 
Productivity is sacrificed when the programmer must con¬ 
stantly switch back and forth between basic and an editor. 
In the native BASIC-PLUS environment the programmer has 
the choice of retyping the line or using an editor after saving 
the program. The inefficiency of the procedure is quite pro¬ 
nounced when learning or modilying large programs with 
multi-line basic lines. The ATPKED modification provides a 
simple substitute command to improve programmer 
productivity. 


3.0 MAKE NEW FRIENDS 

The ATPKED modification provides the programmer 
with an extended program development environment in¬ 
cluding: editing. control-C interruption, logging, run-time 
system switching, and indirect command files. 


3.1 Commands 

3.1.1 STANDARD ATPK COMMANDS 

The programmer should be familiar with ATPK. See 
"RSTS/E V7.0 Release Notes,” September. 1979 Sequence 
17.1.IN. Pay close attention to the section on control 
characters, quoted control characters, the use of control-M 
on page 4 of 9, and “Other features" on page 9 of 9. 


3.1.2 NEW COMMANDS PROVIDED BY ATPKED 

$EXIT Abort ATKP and close the PK job. This command 
replaces the use of control-C to end a command file 
from the KB: and simulates the native environment 
for control-C. 


$X Execute to last $Substitute command. This com¬ 
mand provides the ability to change the same string 
several times. 

$S line-number Xstring-1Xstring-2Xinteger-1Xinteger-2 

Substitutes the integer-1 occurrence on integer-2 
line of string-1 with string-2: X is a delimiter and 
may be any printing character; the space(s) are op¬ 
tional between the "$S" and the delimiter. The basic 
line is listed upon successful edit. The is re¬ 
moved from error lines. 

The basic line number may be modified by the 
$Substitute. This will cause a clone to be generated 
and listed. 

3.2 Examples of Operation. 

ATPKED EXAMPL = KB: 

Ready 

NEW EXAMPL 
Ready 

10 I THIS IS SOME TEXT a 

! AND SOME MORE 

Ready 

$S10 /E/EMORE/ 

10 I THIS IS SOME MORE TEXT a 

I AND SOME MORE 

Ready 


10 ! THIS SIS SOME MORE MORE TEXT & 

I AND SOME MORE 

Ready 

$S10/ M0RE///2 

10 I THIS IS SOME MORE MORE TEXT a 

I AND SOME a 







December 1981 page 29 

RSr^?HOreSSIONAlJ(STSPROFESSIONAU?SrePROfESSIONALRST5PTOFESSIONALRSTSPROFESSIONALR5T^ROfESSIONALRSISPBOfESSIONAlJiSTSPROFESSIONALRSI5PROfESSIONALRSTSPROFESSIONALRSTSPRO«SSra^ 


Ready 

$510/10/100 

100 ! THIS IS SOME MORE MORE TEXT & 

!AND SOME & 

Ready 

100 PRINT LOOP \ SLEEP 2 \ GOTO 100 
RUN 

EXAMPL 02:26 PM 15-Sep-81 

LOOP 

LOOP 

LOOP 

tc 

Ready 


4.0 INSTALLATION 

4.1 Patching ATPK 

Apply the patch to ATPK.BAS source containing any 
DIGITAL supplied patches. This patch was based upon edit 
level: V7.0-07B 8-JUL-80. 

4.2 ATPKED 

Append the ATPKED modification to the patched 
ATPK.BAS. Compile as you choose considering non- 
priviledged users etc. 

4.3 Considerations 

4.3.1 Do not trade an editing bottleneck for a some other 
bottleneck. That is. you may not have sufficient pseudo key¬ 
boards available and you must consider that the total over¬ 
head (extra job, memory, etc.) may be greater for ATPKED. 

4.3.2 ATPKED is a tool to extend BASIC-PLUS and not a re¬ 
placement for EDT. 


4.4 Helpful Hints 

4.4.1 CREATING INDIRECT COMMAND FILES 
UNDER ATPKED 

When creating indirect command files under ATPKED 
enter two underscore characters before ATPK commands 
lines to prevent ATPK from executing the commands im¬ 
mediately. example: 

PIP TEST.CMD = KB: 

_$@TEST1 

_$WAIT 

tz 


4.4.2 ENTERING BASIC-PLUS LINES 

When entering BASIC-PLUS lines under ATPKED enter 
an underscore character before a line beginning with “!” as 
ATPK will not send comment lines to the pseudo keyboard. 


1 EXTEND! 


»»«« ATPKED APPEND CODE 

DELETE LINE 1 BEFORE APPENDING TO ATPK.BAS. 


! - WLB ll-SEP-81 NEW COMMAND MODIFICATION *** i 

i 

410 MODIFICATION VARIABLE DEFINITIONS i 

810 MODIFICATION SUBROUTINES % 

1070-1079 SUB CONSTANTS % 

3099-3300 NEW COMMAND INTERPRETER ROUTINE S 

4100-4400 CTRL C RESTART i 

13000-13999 iSob ROUTINE i 

14000-14999 $S EDIT ROUTINE i 

16003 JUMP TO BASIC READER AND SUPPRESS CTRL C ECHO i 

16030-16500 BASIC LINE READER I 

19030-19032 TRAP ROUTINE % 


* ♦ 

WATCH FOR COMMING ATTRACTIONS ♦ 


RESTORE THE BASIC LINE THAT WAS CHANGED ♦ 
IN THE LAST iSubstitute COMMAND. ♦ 


♦ L/. 

♦ Fn 


OPEN/CLOSE/LIST/PURGE THE LOG FILE. 
FULL SCREEN EDIT. 


tt**********t***************t*t******t******************* 




NEW COMMAND MODIFICATION VARIABLES 




L.* 

SUB.BASIC.LINE.N0% 

SUB.CRZ 

SUB.CRi 

SUB.ERRMSGi 

SUB.HITSX 

SUB.LFi 

SUB.LINE* 

SUB.NO.EXTENDX 


SUB.NOEX.ERRX 


SUB.POSX 

SUB.REPi 

SUB.REP.COUNTZ 

SUB.REP.LINE.NOX 

SUB.SAVE.COMMAND* 
SUB.SRCH* 

SUB.SWX 

SUB.TEXT*(100) 
SUB.TEXTZ 
SUB.TEXT.REM* 


LOCAL VARIABLES DOCUMENTED IN CONTEXT 
BASIC LINE NUMBER USED IN *Substitute 
POSITION OF THE END OF LINE CHATACTERS 
CONSTANTf CARRIAGE RETURN 
ERROR MESSAGE SENT TO ERROR ROUTINE 
COUNT OF OCCURENCES OF THE SEARCH STRING S 


CONSTANT. LINE FEED 
NEW LINE EXTRACTED BY BASIC LINE READER 
SWITCH TESTED BY BASIC LINE READER: 

0 = EXTEND MODE LINES CONTINUED 
WITH CR-LF 

1 = NO EXTEND MODE LINES 

CONTINUED WITH LF-CR-NULL 

SWITCH SET BY BASIC LINE READER TO TELL 
THE *Sijb ROUTINE THAT EXTEND LINE WAS 
REJECTED IN NOEXTEND MODE. 


CURRENT POSITION WITHIN A TEXT LINE 
THE TEXT TO REPLACE THE SEARCH TEXT 
THE OCCURANCE OF THE SEARCH STRING 
THAT IS REPLACED 

THE CONTINUED LINE NUMBER WHERE THE 
SEARCH WILL START 

SAVE AREA FOR THE LAST *S COMMAND 
THE SEARCH TEXT TO REPLACED 
SWITCH TO ACTIVATE THE BASIC LINE READER X 
ARRAY FOR THE BASIC LINE TEXT I 

COUNT/INDEX OF BASIC TEXT ARRAY i 

PORTION OF PK RESPONSE SAVED UNTIL THE % 


NEXT RESPONSE IS READ 


i 


1075 

\ 


NEW COMMAND MODIFICATION SUBROUTINES 

EDIT THE *S COMMAND LINE 


14000-14999 
*Sub COMMAND EDIT 


14950 

MESSAGE ROUTINE 


16500 

TEXT SAVER 


SEND MESSAGES TO THE USER- 


SAVE AND COUNT BASIC LINE TEXT 


NEW COMMAND MODIFICATION CONSTANTS 


SUB.CR*=CHR*(13Z) 
SUB.LF*=CHR*(10%) 


CARRIAGE RETURN 
LINE FEED 


GOTO 3100 

! JUMP TO THE OUR COMMAND INTERPRETER 
******** NEW COMMAND INTERPRETER ROUTINE ******** 

THIS ROUTINE WILL TEST THE INPUT CONTROL LINE FOR THE NEW 

commands: 


*EXIT 

*S. . . 
*x 


ABORT THE PK JOB AND ATPKED i 

SUBSTITUTE STRING FOR NEW STRING & 
EXECUTE THE LAST *S<jbstatute % 


IF LEFT(CTRL.LINf*.2Z)=**S* THEN 

SUB.SAVE.COMMAND*=CTRL.LINE* 

GOTO 13000 

! TEST FOR *Substitute COMMAND 
! SAVE THE COMMAND FOR THE *Xecute COMMAND 
I GOTO THE *SUB COMMAND ROUTINE 
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And we’ll get ’em on their way to you right away - 
usually within 24 hours. Exactly what you wanted. 
At the right price. In time. On time. Every time. 
Anywhere in the continental U.S.A. 

You can count on us. 

Because we’re The Suppliers. 


DEC Peripherals 

BA11KE 

DD11CK/DK 

DH11AD 

DL11E 

DZ11-A,B.C,D,E,F 

FP11-A 

MS11LB 

MS11LD 

MSV11DD 

DLV11J 

RM05-AA 

RK07EA 

RK711EA 

RL02-AK 

RL211-AK 

RL01-AK 

RL11-AK 

RLV21 

RLV11 

RX211-BA 

RXV21-BA 

TJE16-EA 

TWE16-EA 

TWU45-AA 

KDF11-AD,HD,HF.HH,HK 

DR11C 

MR11EA 

VT103-AA,BA 

Call us at (904) 434-1022 


DEC Terminals 

LA 34 DECwriter IV 
LA 36 DECwriter II 
LA 38 DECwriter IV 
LA 120 DECwriter III 
LA 180 DECprinter I 
VT 50 DECscope CRT 
VT 52 DECscope CRT 
VT 100 DECscope CRT 
VT 103 DECscope CRT 
VT 132 DECscope CRT 

Call us at (904) 434-1022 




DEC Supplies 

Disk Cartridges and Packs 
Diskettes 

Diskette Storage Units 
Mag Tape 
Ribbons 
Paper 

Forms Caddy 
Anti-Static Rugs 
Print wheels 
Terminal/Printer Stands 
Forms Bursters 
and Decollators 
Check Signers 
and a whole lot more 

Call us for our complete 
catalogue: 

1-800-874-9748. 

In Florida, call 
(904) 434-1022. 



COMPUTER 
&TERMINAL 
EXCHANGE 

The Snpidiers 


114 East Gregory Street Pensacola, FL. 32501 


DEC is a registered trademark 
of Digital Equipment Corporation 

CIRCLE 14 ON READER CARD 
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JF LEFKCTRl .LINF$r2%) = ‘»X‘ THEN 

CTRL.L1NF $ = SU&.SAVt.COMhANDi 
GOTO 13000 


TEST FOR ♦Xecute COMMAND 

RESET CURRENT COMMAND TO LAST SIJD COMMAND 
JUMP TO $Sub COMMAND ROUTINE 


IT ItF r(CTRL .LINE ♦»f.%) = ’iEXlT* THEN 19200 
I ABORT ON iEXIT COMMAND 
OOTO 2030 

! NO MATCH FOUND ON DEC OR OUR COMMANDS SO SEND THE 
! LINE TO THE PR JOB 

♦ ♦If* CONTROL C RESTART ROUTINE ♦♦♦♦ 

(HIS ROUT TINE ATTEMPTS TO RESTART ATPK AFTER THE USER HIT 
CONTROL C AND AT BEST SIMULATE THE 'REAL WORLD* ON THE PK JOB. 

WE GET HERE THRU THE TRAP AT 19032. 

ECEIO^i- 0 
ERR.EIG%= 0 
ERPOK.CHECL •'i= 0 
1N.AT%= 0 
IN.CH::i= 2 
KB.INX^-1 
I AST .CHR$=^^* • 

PK.5THTUb“i=0 
PUT.COUNT^.^ 0 
WAIT .COMr»*/.“ 0 
WARNING. CHECKS.- 0 

! SET IMPORTANT (I THINK) OAPIABLES TO CONDI I ION 
' FOUND AT THE START OF AIPK AT LINE 2000 AND 
I ASSUMING THE CONTROL EILE IS ‘KB:*. 

SUB .sw%=o;w 
;.UB.TEXT:'.-0/i 
SUB. NOE » .ERR% = 0)i 

' RESET MODS SWITCHES 

1. . Di^SYS ( CHR$ ( 6% ) T CHR$ (- A'/. ) +CHR$ ( PK . KB’' > f CHR$ ( 3*i) ) 

X ECH0X = 1026^. 

\ GOSUB 10010 

\ GOTO 2000 

• PASS THE CTRL/C ON TO THE PK JOB WITH A FORCE 
‘ SET NO ECHO SO THAT ONLY ONE ‘'C IS ECHOE D 
' GO CLEANUP RESPONSES FROM TH F’K 
' GO TO MAIN LOOP 

♦ »♦♦ iSubsti tute^ COMMAND ROUTINE ♦♦♦♦ 

THIS ROUTINE WILL CONTROL ALL FHASES OF EXECUTING THE $SiJb: 

EDIT THE COMMAND ARGUMENTS. 

READ THE BASIC LINE INTO AN ARRAY. 


FTND THE POSITION AND LINE FOR THE SEARCH STRING. 
MAKE the: SUBST ITUTION. 

REMOVE I HE ’ <• F ROM ERROR BASIC LINES 

CHEIK IE (HE BASH LINE NUMBER WAS CHANGED (CLONED). 

f-'. lYPL I HE HASli te xt TO THE IK. 

• r I I SI I Ml hA " LINE . 


GOSUB M.X-j 

' GO EDI I THE COMMAND 

GOTO 2000 IF SUB.BASlC.l iNE.NO/: = o;: 

! ABORT COMMAND JF EDIT PASSES ZERO I )NE NUMBER 

C T RT.. L I NE J'-" • 1. I S'l NH * I NUM$ ( SUB . BASIC . L. 1 NE . N0% ) I CR . I .F I 
UB. sw;c=i*i 
UB. ie:.<tt.=o'; 

UB.TEXT.REMI=*’ 

GOSUB 10000 


SETUP LIST COMMAND TO FASS TO THE PK 

SET SUB SWITCH TO TEEL ATKP IX)G ROUTINE TO AiTlVAFL 
THE BASIC LINE READER 
ZERO THE TEXT 1.1 NE I OUN f 

RESEI THE I EXT LEFT OVER FROM THE PREVIOUS PK RESPONSE 
GO SEND IHF ll‘ T i OMMAND AND COLLECT IMP BASIC LINE 


13.210 IF SUB.NOEX.ERRZ. THEN 


' UB.NDEX .ERR.’^=0 i 

• UB.ERKM'.sI-'NO (EXT EUUam IN NOE XT END MODE' 


GOSUB 149S0 3 

GOT 0 2000 i 

' TEST FOR PROBLEM WITH NOEXTEND MODE AND EXTEND BASIC i 

' RESEI ERROR SWITCH i 

' SETUP ERROR MESSAGE X 

' SEND MESSAGE i 

' GO BACK FOR ANOTHER COMMAND X 

SUB.HlTS'X = 0;i I 

i 

I INIT COUNT OF OCCURENCES OF THE SEARCH STRING i 

FOR 1 .1. ine%=^=sub.rep.line:.nox. to sub. text:' I 

SUB.F-US%= IX i 

i 

' START LOUKING FOR SEARCH STRING STARTING AT THE REQUESTED X 
' CONTINUED LINE. NUMDER i 

• SET SIARTING LINE ROSTTION TO 1 \ 


I 3A70 
\ 


13999! 
1 4000 


IF SUB.F0SZ=0% THEN 13550 
ELSE 

SUB.HITSZ=SUB.HITSX+1Z 

IF SUB.HITSZ=SUB.RER.COUNTZ THEN 13600 
ELSE 

SUB.ROSZ=SUB.POS%+LEN(SUB.SRCHI> 

GOTO 13460 

I SKIP OUT TO TRY NEXT L,INE IP NO MATCH. 

I COUNT OCCURANCE 

! GOTO REPLACE ROUTINE IF DESIRED OCCURANCE FOUND 

• OTHERWISE ADJUST POSITION PAST CURRENT HIT 

! GO LOOK FOR THE NEXT OCCURANCE 

NEXT L.LINEX 

! END UF LINE SEARCH LOOP 

SUB. ERRMSG$='Text exhaustecJ before match* 

GOSUB 14950 
GOTO 2000 

I SET PROTEST THAT SEARCH WAS UNSUCCESSFUL 
' GO SEND ERROR 
I GO BACK FOR ANOTHER COMMAND 


GUB.TEXTKE.LINEZ>=LEFT(SUB.TEXT*(L.LINEX)»SUB.P0SX-1X)+ i 

SUB.REPi + RIGHT(SUB.TEXT♦(L.LINEZ)f SUB.POSZ+LEN(SUB.SRCHI)) i 

S 

I MAKE IHE SUBSTITUTIUN ^ 

IP ASCII(SUB.TEXTK1 ) )=63Z THEN * 

SHB.TEX I$(IZ)BRIGHT(SUB.TEXTKIZ)f2Z) a 

I CHECK IF BASIC LINE WAS AN ERROR LINE ^ 

' AND REMOVE IHE. *?* * 

IF L.LJNEZ IZ THEN 13700 ELSE 
L .NUMZ=r)Z 

L.NUMZ=L.NUMZ +1Z WHILE MIB(SUB.TEXT$(1Z)r L.NUMZ ,1%)> 

ANB MIIKSUB.TEXT I(1Z>»L.NUMZf1%) 

SUB.BAG IC.LINE.NOZ = VAL(LEE T(SUB.TEXl$(l%)rL.NUMZ-1Z)) 

GOTO 13670 IF SUB.BASIC.LINE.NOZ=OZ 
GOTO 13700 

I CHECK IF THE FIRST LINE WAS CHANGED 
! FIND THE NUMBER OF DIGITS IN THE BASIC LINE NUMBER 
• RESET IHE LINE. NUMBER JUST IN CASE IT WAS CHANGED 

I CHECK FUR NULL NUMBER AND COMPLAIN IF FOUND 

I SKIP 1.-RR0R ROUTINE. 

ON ERROR GOTO J9000 

SUB.ERRMSG$ = *M(3difled basic line number is invalid* 

GOSUD 14950 
GOTO 2000 

RESET ERROR EXIT AFTER BOMD ON 13660 
COMFLAIN rO USER 
RETURN FOR NEXT COMMAND 

GOSUB 2300 

FOR L.LINEZ=1Z TO SUB.TEXTZ 
CTRL.. L. TNE l=:^SUB . TEXT! ( L . L. INEZ ) 

GOSUB 10000 
NEXT L. LINEZ 
GOSUB 2200 

CTRL . L INE:$=; ' LISTNH ' +NUM$ ( SUB , BASIC . 1. INE . NOZ ) +CR . LF ♦ 

GOSUB 10000 


& 
i 

= •0* i 
= •9* & 
i 


SET NO LOG TO *RETYPE* BASIC LINE 
START LGOF FOR EACH CONTINUED LINE- 
SET UP NEXT LINE TO SEND 
SEND the: line: 

END LINE LOOP 
RESET EDGING 

SETUP RELIST OP EDITED LINE 

SEND LIST REQUEST AND DISPLAY RESPONSE 


13990 GOTO 2000 


SUB.POSZ = INSTR(SUB.POSZ » SUB.TEXT!(L.LINEZ > » SUB.SRCH$) 
! FIND POSITION OF SEARCH STRING 


I RETURN TO GET NEXT COMMAND 

I ♦♦♦♦ ISub COMAND EDIT ROUTINE 

FORMAT OE ISubstitute COMMAND: 

♦S(spaces)BLN(spaces>"d-Si d Rl d>C d L 

where: 

() INDICATES OPTIONAL NON INMPORTANT SYNTAX 

BLN BASIC LINE NUMBER 

d DEE IMITER CHARACTER FOR ALL ARGUMENTS. THE F 

IS ASSUMED FOR ALL PULLOWING ARGUMENTS 
Si SfARCH STRING 

Ri KEPLACE STRING 

C OCCUKANCF WHERE REPLACE IS TO OCCUR (DEFAUL.1 

1.. CONTIUED LINE NUMBER TO START SEARCH 

(DE EAUE r=l • 


SUB,BASIC.E 1NE.NOZ=0Z 
SUB.SRCHi = * * 

SUB.REPi^* * 

SUB.REP.C0UNTZ=^1Z 
SUB . RE P . L I NE . N0%=: 1 Z 

I INI! ARGUMENTS hNU SET DEFAULTS 
L.Ci^CVTii(MILK CTRL.LINEir3Z>LEN(CTRL.LINEi)-4Z)»8Z) 
L.FLDZ=1Z 

L.PLDZ = L.FLDZ+1Z WHILE MID(L.Ci»L.FLDZf1Z)>=* 0 * 

AND MID(L.Ci»L.PLDZf1Z)<=*9* 

SUB.ERRMSGi=* Basic line number* 
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FROM STATISTICAL MULTIPLEXORS 
TO COMPLETE DATACOMM NETWORKS, 
EVERY DCA COMPONENT IS 

ENGINEERED 

IDEXrV^D 



> rn5~h ^^-O TTl5n -<^ 


DCA point-to-point networks support 
from 2 to 32 ports. Our System 105 
supports from 2 to 8 ports. 


DCA protects your initial investnnent in statistical multiplexors with the lowest-cost 
network growth in the industry. So you can start with a small datacomm net¬ 
work today, and expand or modify 
it to meet your needs tomorrow. 

Our System 115 statistical multi¬ 
plexor can be used in point-to- 
point networks to support from 2 
to 32 asynchronous terminals at a 

remote site. DCA’s statistical multiplexing assures excellent response time, 
character transparency and error-free transmission. 

DCA’s multipoint multiplexing configuration serves a number of 
remote terminal locations with just a single telephone line, for 
substantial savings in phone-line and hardware costs. DCA users 
have benefited from multipoint 
multiplexing since January 1979. 

DCA’s System 205 is a statistical 
multiplexor designed for DEC 
GMlBGS*-based computers. The 
205 requires only one GNIBGS 
slot to emulate up to 16 DEC 
DZl 1 modules and a 128-port stat mux. This 
greatly lowers hardware costs and improves response time as well. 

Because of DCA’s unique modular design, all of the above networks 
could easily expand into larger, more 
powerful networks. As the master 
network processor. System 355 
gives terminal users access to any 
host computer anywhere in the 
network. In addition, the 355 sup¬ 
ports up to 126 ports, 44 





-CM. 




DCA's multipoint multiplexing permits several 
remote locations to share a single phone line. 





of which can be high¬ 
speed synchronous trunk 
links. Several 355’s can 
be combined to greatly 
expand this support. Fea¬ 
tures include port conten¬ 
tion, switching, unlimited routing, X.25 support and a network man 
agement system built right into the product. 

Total system access and unlimited network growth at very low cost—that’s the 
DCA advantage. For complete information, call or write for our 16-page brochure. 


Complete system compatibOity allows DCA 
networks to grow without growing obsolete. 




’TM Digital Equipment Corporation 


CIRCLE 61 ON READER CARD 




ENGINEERED 

TDEXPy\ND 


T 


Digital Communications Associates, Inc. 303 Technology Park/Atlanta, Norcross, GA 30092 404/448-1400 
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SUP. BASIC,LINE.NO%=VAL(LErT(L.C$»L.FLliZ-1%) > i 

S 

! STRIP OFF *Sf CR-LFf AND LEAHING SPACES i 

! SET FIELK INDEX TO 1 & 

I LOOK FOR END OF BASIC LINE NUMBER i 

! SET UP ERROR MESSAGE i 

! EXTRACT BASIC LINE NUMBER AND CHECK ALL NUMERIC i 

1405b GOTO 14900 IF SUB.BASIC.LINE.N0%=0% g 

\ L.Ct^CUTtf(RIGHT(L.C»,L.FLD%)»8Z> g 

\ L.DLMi=LEFT(L.C»»l%) i 

\ SUB.ERRMSGS**Delitiieter not found* S 

\ GOTO 14900 IF L.DLM*-** S 

\ L.Ci=RIGHT(L.C$f2%) 

% 

! CHECK THAT BASIC LINE NUMBER WAS NOT ZERO g 

• STRIP BASIC LINE NUMBfR OFF OF 1 HE COMMAND AND g 

• STRIP OFT LEADING SPACES g 

• TAKE THE NEXT CHARACTER AS THE ARGUMENT DELIMITER g 

! SET UP DELIMITER ERROR MESSAGE g 

' CHECK THAT Wt HAUL A DELIMITER g 

' STRIP OFF DELIMITER g 

14060 L .FLD%=INSTR( l%»L.C$»l .III M*) g 

\ SUB.SRCH*=LlF I (L .L»,l .Fi n:.- i;:) g 

X SUE. EKRMSGl-**Search strin*^ rtot found* g 

•-.niO 14900 IT SUB.SRCHf^** AND LEN ( SUB . SRCH* ) =0X g 

\ L.C*=RlGHT(l..CFfL,FLDX+lTi> g 

g 

! LOOK FUR THE END UF THE SEARCH STRING g 

' SALE THE SEARCTi STRING g 

• SETUP ERROR MESSAGE « 

• ABf'RT IT search S(R1N(i IS NULL 

' STRIP OTF SEARCH STRING FROM COMMAND LINE 


g 

! ARRAY TO SAVE THE BASIC INE * 

16049' ♦»» AUTOMATIC EXTEND/NOEXTEND MODE ROUTINE » 

! THIS ROUTINE FINDS THE FIRST LINE AND DETERMINES IF THE g 

! END-OF-LINE SEOUENCE IS A CR-LF (EXTEND MODE) OR ^ 

' LF-CR-NULL (NOEXTEND MODE). * 

16050 TOg=:SUe. TEXT.RfcMgPTOi * 

\ GOTO 16100 IF SUB.lEXTX * 

\ L,CR%=1NSTR(l%»T0$fSUB.CR$) i 

V IF L.CR% = OX THEN * 

SUB.TEXT.REMi=TO* * 

\ GOTO 16010 * 

i 

! APPEND ANY TEXT FROM THE PREVIOUS PK RESPONSE TO THE t 

• CURRENT RESPONSE i 

• SKIP OUT IF NOT IF LINE 1 HAS BEEN FOUND g 

! LOOK FOR A CR * 

• IF NO IR i 

' save the current text g 

• '-0 GET SOME MORE » 

16060 IF MlIKTOg.L.CRX-IX.IX) = SUB.Ift THEN g 

SUB.NO.tXTENDX * IX g 

ELSE g 

SUB.NQ.EXTENDX = OX g 

g 

! IF THE LF IS BEFORE THE CR ASSUME NO EXTEND MODE g 

! OTHERWISE ASSUME EXTEND MODE g 

16100 GOTO 16300 IF SUB.NO.fXTENDX g 

g 

! TEST FOR NO EXTEND MODE CR-LF-NULL CONTINUED LINES g 


iithout delinieter* 


14070 I.FLDX=INSTK'1X.L.Cf.L.DL mF) 

\ SUB.ERRMSG* “Rerlace etrins maw not be null 

\ Gimi 14900 IF LENd. .C$)=OX IF L.FLDX»OX 

\ l..rLDX=LEN(L.Ct) + lX IF L.FLDX=OX 

\ SUB.REP$=LEFT(L.C>.L.FLDX-1X) 

\ L.C$=RlGHT(L.Ci.L.FLDX+l) 

» LOOK FOR THE END UF 1 HE REPLACE STRING 
! SETUP ERROR MESSAGE 

! ABiiRT IF NULL REPLACE STRING AND NOT TRAILING DLM 
' FAKE POSITION INDEX IF NO DELIMITER 
I SAVE REPLACE STRING 
I STRIP OFF REPLACE STRING 

14080 GOTO 14100 IF L.C$=** 

\ L.FLDX=IN&TR(1X.L.C$.L.DLM$) 

\ L.FLDX=LEN<L.C$)+1X IF L.FLDX=0X 

\ SUB.ERRMSG$=*ReF'lace count invalid* 

! TAKE DEFAULTS ON REST IF COMMAND IS NULL 
! LOOK FOR THE END OF THE COUNT ARGUMENT 
! FAKE DML INDEX IF NUT FOUND 
' SETUP ERROR MESSAGE 

14085 SUB. REP. CUUNTfi = VAL (LEFT (L .C*,L.FLDX-1X) ) 

\ SUH.REP.COUNrX=lX IF SUB.REP.COUNTX=OX 

\ L,C*=RIGHT(L.C*.L.FLDXF1X) 

! GET AND TEST NUMERIC COUNT 
' SET DEFAULT=1 IF ZERO 
I STRIP COUNT FROM THE^ COMMAND 

14090 GOTO 14100 IF LEN(l.Cg)=OX 

\ SUB,ERKMSG»=*Ref"loce line nuniber • invel id* 

\ SUB.REP.LINE.NOX=VAl (L.Ci) 

\ GOTO 14900 IF SUB.RtP.LINE.NOX=OX 

' SKIP LINE IF NO COMMAND IS LEFT 

! SET UP ERROR MESSAGE 

! GET AND CHECK NUMERIC THE LINE NUMBER 
I ERROR IF LINE NUMBER IS ZERO 


14100! 

14390 


14900* 

14910 


CONTINUE 
GOTO 14990 

' SKIP VAL(N) error ROUTINE 

»S ERROR ROUTINE 

ON ERROR GO 10 19000 
GUSUB 14950 
GOrO 14990 

» RESET ERROR ROUTINE 

I GO SEND MESSAGE 

I GOTO TO SUB COMMAND EDIT EXIT 


L.MX-FNTO.LOGX(*’ ♦Sub ERROR 
SUB.BASIC.LINE.NQX ^OX 
KElUKN 


* fSUB.ERRMSGiPCR.LF g.OX) 


* EUU MESSAGE 

Si I BA It LINE NUMBER- v FOR ERROR 
Ri I URN 


g 

16u40 


I END OF SUB COMMAND EDI I ROUTINE 

fSub LOhMAND BASIC LINE READER RDUflNE 

I HIT. ROUTINE IS Ai. TIVATLD B f THE FC RuU ( J/<l Dir oL I I 1 NO 
I HE -.UD.SWX AND SENMNC. THE PF JoB A 'LI -TNH n’ VIA 
loOOO. 

THE FUKPOSE OF THIS ROUllNE IS 70 READ THE BASIC LINt 
FROM THE PK JOB AND SAVE IT IN AN AR-RAY (SOI -EXIF*. 


DIM SHD. lEXTI-' IOOX> 


16119! *** EXTEND MODE ROUTINE g 

16120 SUB.CRX=INSTR<lX.TO».CR.LFt) g 

\ IF SUB.CRX=OX THEN g 

IF LEN(TOi)=OX THEN 16010 ELSE g 

SUB.TEXT.REM$=TO$ g 

\ GOTO 16010 g 

g 

• LOOK FOR THE END OF A LINE g 

! IF THERE IS NO END LINE g 

! AND NO teat THEN RETURN g 

• ELSE SAVE THE TEXT FOR THE NEXT RESPONSE FROM g 

! THE PK g 

! AND RETURN g 

16130! note: now we have a COMPLETE LINE FROM THE PK. g 

16140 SUB.LlNEt=LEFT<10$.SUB.CRX+lX) g 

\ T0*=RlGHT(T0i,SUB.CRX+2X) g 

\ IF INSTRCIX,SUB,LINE>»'Ready*) THEN g 

SUB.SWX=OX g 

\ GOTO 16010 g 

g 

! EXTRALT THF LINE WITH END SEOUENCE g 

! STRIP LINE FROM PK LINE g 

! IF READY PROMPT IS FOUND WE HAVE ALL OF THE TEXT AND g 

• RESET THE SUB SWITCH AND g 

' RETURN. g 

16160 GUSUB 165')0 g 

\ GOTO 16120 g 

g 

! GO SAVE CURRENT LINE IN THE ARRAY g 

! REPEAT UNTIL NO ADDITIONAL LINES ARE FOUND IN PK g 

! RESPONSE g 

16300! ♦*** NO EXTEND MODE: SUBROUTINE g 

16320 SUB.CRX*rdNSTR( IX.TOi.l f .CR.OF) g 

IF Slib.CRX=-o:. I HEN i 

ir LEN(T0$)=0X THEN 16010 g 

ELSE g 

SUB.TEXT.REM$=TO$ g 

L.:RLFX=INSTR(1X,SUB.TEXT.REM$,CR.LF$) g 

\ IF L.CRLFX-OX THEN 16380 g 

ELSE g 

CiOTO 16390 IF SUB.TEXTX = OX g 

SUB.LINE$=LEF1(SUB.TEXT.REM$,L.CRLFX+1X) g 
V GOSUB 16500 g 

SUB.SWX=0 g 

GOTO 16010 g 

g 

' LOOK FOR ^ LF-CR-NULl. END LINE SEQUENCE g 

! IF NO END OF LINE g 

! AND NO TEXT THEN RETURN g 

! ELSE SAVE THE REMAINDER g 

' LOOK FOR A CR-LF TO END BASIC LINE g 


IF THE REMAINDER DOES NOT HAVE A CR-LF g 
Wh API NOT THRU READING THE BASIC LINE, g 
GO CHICK FOR POSSIBLE LOST END OF BASIC g 


• LINE. g 

• r L St g 

• REJECT REQUEST IF CR-LF FOUND ON g 

1 FIRST line, WE MAY NEVER SEE g 

I THE LF-LR-0 OR COULD LOSE TEXT g 

' ON following LINES. g 

» nute: nuw we have a noextend g 

I BASIC LINE WITH MORE THAN A g 

' CR-LF. g 

' GET THE LINE TO BE SAVED g 

' GO SAVE THL LAST LINE g 

' RESET THE SUD SWITCH g 

' RETURN g 

I 6.740 SUB . L J NT P--=l t F I • T » >UB . LRX f 1 X > T C HR$ ( OX > g 

10 F '^R IGH I ( T Of , SUB . C KX TJX) g 

g 

• I X TRACT (HT NEW LINE g 

< SI RIF- (Ht I INE FROM THE PK TEXT g 
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16360 GOSUB 16500 * 

\ GOTO 16320 S 

i 

! GO SAVE THE LINE I 

• REPEAT PROCESS UNTIL NO COMPLETE LINE ARE FOUNB i 

16380! ♦♦♦♦ ROUTINE TO CHECK FOR NOTEXT PROBLEM IN NO EXTEND MODE **** I 

16385 IF INSTR<l%rSUB.TEXT.REM$f'Ready*)=0% THEN 16010 i 

i 

I CHECK FOR READY PROMPT EXTEND LINE IN NO EXTEND MODE i 
! FALL THRU TO REJECT ROUTINE BECAUSE WE MISSED THE % 

! CR-LF BY SUBING AN EXTEND I INE IN NOEXTEND MODE % 

163891 ROUTINE TO REJECT REQUEST IF EXTEND LINE IN EXTEND MODE tf* % 

16390 SUB.N0EX.ERR%=1Z i 

\ SUB.SWZ=0% i 

\ GOTO 16010 I 

i 

! SET ERROR SWITCH S 

! RESET SAVER SWITCH * 

! RETURN SO SUB ROUTINE CAN ABORT REQUEST i 

16499! TEXT SAVER SUBROUTINE ♦♦♦» % 

16500 SUB.TEXT%=SUB.TEXTX+1% S 

\ SUB.TEXT*(SUB.TEXT%)=SUB.LINE$ S 

\ RETURN S 

& 

! BUMP COUNT OF LINES SAVED i 

! SAVE THE LINE i 

19030 IF ERL>14000 AND ERL 14999 THEN RESUME 14900 i 

! TRAP *S INTERPRETER ERRORS S 

19031 IF ERL=13660 THEN RESUME 13670 i 

i 

! TEST FOR VAL ERROR WHEN RESETTING BASIC LINE NUMBER % 

19032 IF ERR=28 THEN RESUME 4100 S 

& 

! TRAP "C AND ATTEMPT A RESTART i, 


32767 END 


Patch to ATPK.BAS (V7.0-07B 08-JUL-80) line 16000: 

>!(H/16000 ::t3b> ! /V ::cr> 

16000 :;tab>! i<cr> 

*H/DEF*/V<cr> 

:tab>DEF* FNTO.LOG%(TO»fT0%> J<cr> 

♦AV<cr> 

tab:>\ IF (NOT LOG.OFFX) THEN i<cr> 

♦I<cr> 

.cr> 

16003<tab GOTO 16030 IF SUB. SWX :tab;: i<cr> 

<tab>\ L.CPX=INSTR (IXf TO* » *"C * +CR.LF*)<tab. »<cr> 

Ctab.iA TO*=LEFT< TO*»L.CP%-1X)+RIGHT(T0*»L.CP% + 4Z) IF L . CP% <tab>i ::cr> 

<tabtab>■<tab><tab><tab> ^tab > tab> < tab: " tab'■ t<c r> 
tab. " tab ! CHECK IF SUB COMMAND ACTIVATED THE BASIC READER <.tab>S c;cr> 
"tab : <tab:; ! CHECK FOR CTRL C" tabXtabXtabXtabXtab! 8 :cr; = 

<t3b: Aab. ' REMOVE CTRL C SO ONLY ONE IS DISPLAYED ::tabXtab>8<cr.: 

<cr> 

esc>*V<cr..:- 

.tab:; \ IF (NOT LOG.OFFX) THEN 8:cr> 

♦ 20/16007/0 :;cr := 

.16007 IE (NOT LOG.OFFX) THEN 8<cr.:- 

♦ E.X" c r> 

(JhecEsudt: 65395 



NPI proves purchasing 

Disk Sub-systems does not 

have to be 

HIGH RISK 
vs 

BIG SAVINGS 

• Disk (Jrives manufacture<d 
by the same vencdor DEC 
buys them from 

• No operating systems 
software changes 

• One (day installation 

• 100% software transparency 

• DEC'S RM05-RM03-RM02 
drivers are used 


Maanetic tape format: DOS/ODD:800 BPI 
Directory: 


Name .E';t 

Sise 

Prot 

Bote 

MM:t2fl] (Coey #1) 

RTCULL .DOC, 

51 

<155; 

17~Sep-81 

(Complete article) 

ATPKED.RNG 

9 

. 155;:- 

17-Sep-81 

(Section 1.0 thru 4.*) 

ArPKPA.DOC 

2 

■•.:i55;^ 

17-See 81 

(ATPK Patch) 

ATPKED.BAS 

38 

155;> 

17- See-81 

(ATPKEB.BAS aeeend code) 

Total of 100 

locks 

in 4 files in MM:r.'’i 

.13 

Name .E.t 

Si.:e 

F‘ I o t 

Date 

MM:r2»23 (Coey 42) 

RTCUl 1 .DOC 

51 

155 

17 3ee-81 


ATPKED.RNC.1 

9 

155. 

1 See - 81 


ATPKPA.DOC 

2 

^ 155: 

1» Ser- -81 


ATPKED.BAS 

38 

155;: 

17-SeF 81 


Total of 100 

b J oc E r. 

in 4 files iri MM:[2< 

-23 


Grand tot^l of 200 blocks in 8 files in Mn:i.*»E3 


AT LAST!!! 

The RSTS PROFESSIONAL will be 
published six times a year. 
February. April, June. August. 
October. December 


• 50% cost savings 

• Single vendor maintenance 
in major cities 

• Uses dec's diagnostics 

• Timely delivery 

•DEC RP06-RP04-RM03 
RM02 accepted on trade 


NPI National Peripherals, Inc. 


41 Chestnut Lane 
Westmont, IL 60559 
(312) 325-9700 

CIRCLE 62 ON READER CARD 
















page 36 December 1981 

RSTSPROF^IONALRSTSPROFtSSIONALRSTSPROFESSIONALRSTSPROreSSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALreTSPROFESSIONAlJ^STSPROFESS^^ 


DEAR 

RSTS 

MAN: 



Send questions tO: DEAR RSTS MAN. P.O. Box 
361. Fort Washington. PA 19034. 


DEAR RSTS MAN: 

Contiguous Isn’t Always Best, or 
How I Learned To Use UTILTY 
FLAG/NOCTG 

It is sad that people quite often 
won’t spend some time to save more. 
It’s even sadder when, as I did, you 
spend the time and then have to waste 
time figuring out what went wrong. 

Having just upgraded a RSTS sys¬ 
tem from 4 RKOS’s by adding an RM03 
equivalent, I was delighted that the ac¬ 
count copy program I’d written worked 


so fast. Better still. It created all con¬ 
tiguous output files — that has to be 
better, doesn’t it? 

Well, the answer Is “not neces¬ 
sarily!” Everything worked beautifully 
until an invoicing program gave a pro¬ 
tection violation on a CLOSE state¬ 
ment. Dim* memories awoke, and I 
remembered having the same problem 
with virtual arrays a couple of years 
ago. 

The difficulty this time was with a 
disk file opened In mode 2 (append). So 
little Information had been written to 
this file that there had been no need to 
write to disk from the buffer during pro¬ 
gram execution. The CLOSE, of course, 
caused exactly that to happen and 
RSTS was complaining in somewhat 
confusing style about my attempt to 
extend a contiguous file. Thank 
heavens for UTILTY! 

* No pun intended. Steve Holden 

Dear Steve: No doubt RSTS can con¬ 
found us! Try some strange protection 
codes, < 3 > for example, and try 
PiPfZE. 


DEAR RSTS MAN: 

I have a large file and I would like to 
read through It looking for only certain 
records that match what I want. Should 
I use large record-sizes or what? It 
takes too long on my system with my 
normal programs. What can I do? 

Overnight Batch 


Dear Overnight Batch: Come back to 
daylight. RSTS MAN has discovered 
SELECT*. This Evans, Griffiths and 
Hart product will fill your needs. It is a 
general utility that will extract records 
that fit your specifications from a file 
and write on output file of your specifi¬ 
cations (sorted optionally) with 
unbelievable speed. It extracted rec¬ 
ords from a 1,000,000 (million) record 
file (20 byte records) in 20 cpu minutes 
on an 11/70. The 40,000 record 20,000 
block master file can be scanned in 30 
cpu seconds! 

*ed: Look for a complete article on 
SELECT and Its uses in the Feb¬ 
ruary issue. 


FROM THE EDITORS . . . 

DAVE MALLERY . . . continued from page 4 

prints fox messages on KBO: after each sub¬ 
pass and next to RSTS, is the ultimate CPU 
and memory test. 

TRAP to 114—a parity error in 
CACHE—randomly every twenty minutes or 
so, during EQKC. Trouble—right here in 
River City. At this point, we spent a week 
tearing through the memory boxes trying to 
find more trouble. Found and fixed a badly 
frayed Berg cable coming off the cache 
board—no cigar (no spares, either). It’s 
amazing how blind you can be without a 
teacher. 

The great awakening came when I 
finally opened my eyes and looked at the 
memory error registers in the legions of dif¬ 
ferent’ trap to 114’s I had accumu¬ 
lated—they looked like this: 

ERRREG:004020 

or 

04420 etc. 

but always ended in 20. Looking at the proc¬ 
essor book for the umppteenth time (read¬ 
ing it for the first time) I realized that the 20 
bit meant an error in CACHE address group 
zero! And it was there every time! 

You can disable cache (or half of it) by 
setting an few bits in a cache control regis¬ 
ter. I re-booted the diagnostic (EQKC). started 
it normally, quickly halted and turned off 
cache group zero. Success! 350 passes over a 
weekend with zero problems. 


Now, all I have to do is get the cache 
board fixed. I stuck it into ^105 to be sure I 
had the right board (1 did) and off to the 
phone. Three out of four companies politely 
declined, the last one. a new firm in NYC. 
tried valiantly and very professionally for 
days with an on-board chip testing com¬ 
puter changed several chips, but couldn’t fix 
it. 

Now DEC offers depot service and will 
fix it for you for $155 but takes at least 8 
weeks. Not quite what I had in mind! So. 
biting the bullet. I paid $1380 for a SWAP! 
(60% of list). So now. old ^71 is back on ser¬ 
vice. and in service. I expect another six 
years of flawless operation. 


Some Morals: 

1) Old 70 s are getting very cheap! If 
you are persistent and armed with 
cash, you can make some excellent 
deals. Buy with care—unless the 
machine is RUNNING and under 
current DEC service, they won’t 
take it on service without a prelude 
of time and materials inspections 
that can be very expensive. Check 
with your Field Service manager 
before you buy! 

2) Fixing old 70’s yourself without 
spares can be very enlightening, 
educational and time consuming. 


3) Depot service houses can fix most 
anything except a broken cache. 

4) You will never get a deal like the 
above from a broker, but you can 
make the broker fix the machine. 

f 


4 ^ $200. RSTS/E 

WORD PROCESSOR % 
CBEDiT.BAS 

Basic-Plus* program with VDT input, 
window edit and document save. Add, 
locate, global change, replace, delete, 
block move and file merge, etc. Crash 
and operator error recovery. Supports 
DEC, Hazletine and Mime standard 
VDT’s. Others easy to add. 

Fully formatted output (margins, justify, 
center, underscore, super-sub-script, 
headers, page numbers, etc.), to type¬ 
writer, line printer or disk. Bidirectional 
driver for Diablo-Xerox 16-17 series. 

User’s manual and source 
code included. 

9-Track $200. RK05 $260. ppd 
T. F. Hudgins & Associates, Inc. 
RO. Box 10946, Houston, Texas 77018 
Woods Martin 713/682-3651 

*TM Digital Equipment Corporation 
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DEC USERS: Stop and think. Our disk systems 
are the only viable storage alternative. . . 




I More rehabihty. We'll provide great alternative solutions—like our Add-On, Non-Stop 
■ Reliability (ANSR) systems. . . or our 160 or 675 Mbyte, SMD-compatible Winchester 
storage drives—for added dependability and increased throughput. 

More flexibihty and floor space. We've eliminated the problem of limited choice. Name 
■ it; you've got it. And our alternative solutions take up much less floor space. 

Faster dehvery. We've built our solid reputation on guick delivery. Typically, we can 
■ give DEC users value-packed storage systems in 30 to 45 days ARO. 

Responsive service. We have service centers both in the U.S. and Europe. We offer 
■ 4-hour response to any call within a 50-mile radius of major U.S. cities. And 24 hours/ 
day, 7 days/week service contracts for all key metropolitan areas. 

5 Big money savings. For example, two RM03s with a total capacity of 160 Mbytes cost 
■ $50,000. Three of our 160 Mbyte Winchester drives in support of a DEC VAX-11/780 
give you 480 Mbytes for $42,500. 

For more information about the only viable alternative to DEC data storage systems, contact us today at 
any of the addresses listed below. 


System J^^dustries 


United States: 525 Oakmead Parkway, P.O. Box 425, Sunnyvale, CA 94086, (408) 732*1650, Telex 346-459. 

Europe: System Industries (Europe), System House, Guildford Road, Woking, Surrey, GU22 7QQ, England, (048 62) 5077, Telex 859124. 
California (714) 754-6555. (213) 557-0384; Colorado (303) 741-3502: Georgia (404) 955-2252; Illinois (312) 948-9330; Massachusetts (617) 695-4022; 

New Jersey (201) 839-8650; New York (516) 482-6082; New York Metro (212) 953-0315: Ohio (513) 771-0075; Seattle (206) 451-8791; 

Texas (713) 497-7224; Washington, D.C. (703) 734-9700; West Germany (06102) 5464/5; Sweden 08-63 62 74 
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TIMER.BAS 

By Michael H. Koplitz, Allis-Chalmers 


10 

20! 

\! 

\! 

\! 

\! 


\! 
\! 
\ ! 
\! 


\! 

\! 


\ ! 
\! 


\! 

\1 

\1 


EXTEND 

This program is designed to log out users who stay in “C state for more 
tnan 10 minutes. It will not eftect Il,*l accounts. Note that 
tnis program runs every 3 seconds so that it is possible that a 
user might be able to be forced out even though the user did leave 
*C state during the MINUTES.WAIT% minute interval, the odds are 
10000 to 1 . 

The only requirments of this program is that you have BASIC-PLUS. 
Matrix functions are not neccessary, they are not used by the 
program. 

Note that this program does take up a job slot so you may not wish 
to run it all the times. 

Starting the program: 

RUN TIMER 

How many minutes to wait ? XX 

Timer will be detaching in job slot ## 

Stoping the program: 

1. Attach to the job slot timer is running in. 

2. “C the program. 

Author: M H Koplitz 
DP Analyst 
Allis-Chalmers HTD 
E. Berlin Road 
York, Pa. 17404 

Date written: C5-Dec-80 

Justification: The program will eliminate those users who are simply 
a drain on systeiri resources. Those users who log in and don't log 
out when they are finished witn a session. The monitor must 
constantly monitor these jobs. 


DIM JOD.NUMBER%(32%),PROJ%(32%),PROG%(32%), 

ENTRY.TIME $(3 2%) ,REMOVE%(32%) 

!DIMENSION TABLE 


40 

50 


70 

80 


100 

110 

120 

130 

140 

145 


PRINT "TIMER VI.0 ALLIS-CHALMERS HTD 


";DATES(0) 
•PRINT BANNER 


ISKIP LINE ON TERMINAL 


INPUT "How many minutes to wait ";MINUTES.WAIT% 

!GET MINUTES TO WAIT 

print ISKIP A LINE 


PRINT "Timer will be detaching in 30 b slot ";PEEK{518)/2 

!INFORM OF DETACHING. 
FEEK(518) IS THE FIXED LOC¬ 
ATION IN MONITOR FOR JOB 
NUMBER TIMES 2. 


XS = SyS(CHRS{ 6 %)+CHR5{7%) ) 


!DETACH CODE 


************i^;iT VALUES here*************************************** 
FOR X = 1 TO 32 

JOB.NUMBER%(X),PROJ%IX),PROG%(X),REMOVE%(X) = 0 
ENTRY.TIMES(X) « "" 

NEXT X 

TABLE.COUNTER% = 0 

XS = SYS(CHR$(6%)+CHR$(-3%)) 

JOB.MAX% = ASCII(MID(X$,4%,1%)) !JOB MAX GET FROM MONITOR 

! TABLE. 

***************VARIABLE table************************************** 

JOB.NUMBER% KEEPS THE JOB NUMBER OF JOB IN "C STATUS 

PROJ% KEEPS THE PROJECT NUMBER OF THE JOB IN JOB.NUMBER% 

PKOG% KEEPS THE PROGRAMMER NUMBER OF THE JOB 

TIMES THE TIME WHEN THE "C STATUS WAS RECORDED 

REMOVEV. INITIALLY ZERO WHEN JOB SCAN BEGINS AFTER 

JOB SCAN IT WILL EQUAL 1 IF THE JOB IS TO BE 
REMOVED FROM THE TABLE. JOB IS REMOVED FROM 
TABLE IF IT IS LOGGED OUT OR OUT OF *C STATE. 
JCn.MAXV MAXIMUM NUMBER OF JOBS ALLOWED DURING CURRENT 

TIMESHARING. 


ON ERROR GOTO 32000 


ISET UP ERROR FLAG 


170 

18U 


1M5 

190 


210 
220 
225 
2 50 


♦MAIN PROGRAM CODE STARTS HERE* 


FOR X% = 1% TO JOB.MAXI 


•THE VALUES IN THIS 
STATEMENT DEPEND ON SYSTEM 
CONFIGURATION. LOW NUMBER 
IS JOB AFTER SYSTEM JOBS. 
HIGH NUMBER IS YOUR MAX! 

GOTO 220 IF X% = PEEK(518)/2 iSKIP THIS JOB SLOT 

XS = SYS{CHR$(6%)+CHR$(26%)+CHR$(X%)+CHR$(1%)) 

!RETURN JOB STATUS SYS CALL 

STATl'S.JOB% = CVTS%(MID(XS,21% ,2%) ) 

!GET STATUS OF JOB, 

-1? MEANS 'C STATUS 


GOSUH 1000 

NEXT XV 

on 00 

POP yv = 1 'lYy TAHIJ.'.COUNTERV, 


!TABLE CHECK 

!CONTINUE LOOP 

!CLEAN UP TABLE 

!LOOP THROUGH TABLE LOOKING 
FOR REMOVEV. (Y%) = 1 


250 

260 


GOTO 270 IF REMOVE%(Y%) = 0% 

GOSUB 5000 
Y% = Y% - 1% 


270 NEXT Y% 

280 SLEEP 3% 


ISKIP THIS ONE IT REMAINS IN 
TABLE 

!REMOVE ENTRY FROM TABLE 

!BACK UP ONE SINCE TABLE 
IS MOVED UP BY ONE IN 5000 
ALSO NOTE THAT TABLE.COUNTER% 
DECREASED BY ONE. 

!CONTINUE LOOPING 

!SLEEP 3 SECONDS BEFORE 
MAKING NEXT PASS. 

!MAKE NEW PASS. 

NOTE THAT THE TABLE REMOVE 
IS ALREADY ZERO DUE TO 
LINE 230-270. 


*END OF MAIN CODE* 


300!*********^ 

\! 

\! IMPORTANT NOTE: ONLY A “C WILL REMOVE THE PROGRAM OUT OF ITS PROCESSING. 
\! A “C TRAP IS UNNECESSARY BECAUSE THERE AREN'T ANY FILES OPEN. IT DOES 
\! NOT MATTER WHERE THE CODE FINISHES OUT. IF A “C IS ENTERED WHILE IN 
\! THE MIDDLE OF A SYS CALL, THE SYS CALL WILL BE COMPETED BY THE FP 
\! BEFORE THE PROGRAM RETURNS TO “C Ready STATE. 


1000 !* 

\! 

\! 

\! 

\! 

\! 

\! 

\! 

\! 

\! 

\! 

\! 


1020 

\ 

\ 

\ 

\ 


1030 

\ 


1040 

\ 


*********TABLE SEARCH AND JOB FORCE LOG OUT************************** 

This routine will search the job table, IF the job is found in the 
table and it is not in “C status (STATUS.JOB% >* 0) then the entry in 
the table will be flagged for deletion (REMOVEV(Z%) =1). If the 
job is found and it is in “C status the time will be examined to 
determine whether the job has been in *C status for more tnan 
MINUTES.WAIT% minutes, if so send a message and BYEF. If the job 
is not found in the table and it is in “C status, enter it into 
the table with the current tiitie (TIMES{0)). 

Note that accounts Il,*| are skipped. 


Y$ = SYS(CHR$(6%)+CHRS(26%)+CHRS(X%)) 


TEST.PROJV = ASCII(MID(YS,22%,1%)) 
GOTO 1230 IF TEST.PROJV = 1% 
TEST.KBV = ASCII(MID(XS,4%,1%)) 
GOTO 1230 IF TEST.PROJV AND 128% 


TEST.PROGV = ASCII(M1D(YS,21%,1%)) 

TEST.JOB.NUMBERV 

FOR Z% = 1% TO TABLE.COUNTF,R% 


(SYS CALL TO GET THE JOB 
STATUS S% = 0%, REFER 
TO PROGRAMMER MANUAL. 


(PROJECT NUMBER. 

SKIP IF ACCOUNT 11,*1 
OR DETACHED. 


(PROGRAMMER NUMBER 


ASCII(MID(Y$,3%,l%))/2% 

(JOB NUMBER 


(LOOP THROUGH TABLE 


GOTO 1080 IF TEST.PROJV «= PP.OJ%(Z%) 

AND TEST.PROGV = PROG%(Z%) 

AND TEST.JOB.NUMBERV = JOB.NUMBERV(Z%) 

(A MATCH IN THE TABLE. 

DO THIS WAY TO AVOID <> 
STATEMENTS. 


GOTO 1190 


GOTO 1180 IF STATUS.JOB% 


(SKIP THIS ENTRY IN TABLE 
NO MA.TCH WITH THIS JOB 

(GOTO SEQUENCE TO REMOVE 
THE ENTRY FROM THE TABLE 
SINCE THE JOB IS OUT OF *( 
STATUS 


HOURS = 
HOURIS 


LEFTIENTRY.TIMES(Z%),2%) 
■ LEFT(TIME$(0),2%) 


(GET HOURS 


\;********************.*****«*****..************«******..*************** 

\! IMPORTANT NOTE: THE TIME CALCULATIONS ARE BASED ON THE 24 HOUR CLOCK 
\ IF YOU USE THE AM/PM CLOCK ADD IN AT LINE 1085 

\ A CONVESION ROUTINE TO CHANGE AM/PM TO 24 HOUR. 


1100 

\ 

\ 


MINUTESS = 
MINUTESIS 


RIGHT(ENTRY.TIMES(Z%),4%) 

= RIGHT(TIMES(0),4%) 

(GET THE MINUTES 


TIME.CREATEDV = VAL(HOURS) * 60% + VAL(MINUTESS) 

TIME.NOWV = VAL(HOURIS) * 60% + VAL(MINUTESlS) 

(CALCULATE TIME IN MINUTES 

IF HOURS = "23" AND HOURIS = "00" 

THEN TIME.NOIVV = TIME.NOIVV + 60% * 24% 

(IF CALCULATING AFTER HIDNIGH 
MAKE 00 HOUR EQUAL TO 24 
BECAUSE YOU ARE SCANNING 
BEFORE MIDNIGHT AND AFTER 
MIDNIGHT 


TIME.CHANGEV = TIME.NOW% 


GOTO 1230 IF TIME.CHANGEV 


KBS = MID(YS,4%,1%) 


TIHE.CREATEDV 

(HOW MANY MINUTES HAVE GONE 
BY IN *C STATUS. 

MINUTES.WAIT? 

(SKIP IF NOT IN ‘C STATUS 
LONG ENOUGH. 

I.FAVE ROUTINE. 

(GET THE KB NUMBER FOR 
SYS CALL FORCE. 
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1170 

\ 


1185 

\ 


1190 

1200 


1220 

\ 


QS = SYS(CMR$(6%)+CHR$(-5%)+KB$ 

+ "? Job in Ready status over "+NUM1$(MINUTES.WAIT%)+ 

" minutes - forced" 

+ " logout"+CHR$(13%)+CHRS(10%)) 

(PRINT MESSAGE ABOUT LOGOUT 
ON TERMINAL 

Ql$ = SYS(CHR$(6%)+CHRS(-4%)+KB$+"BYE F"+CHR$(10%)+CHRS{13%)) 
(FORCE A BYEF AT THE TERMINAL 


REMOVE%(Z%) = 1% 

GOTO 1230 

NEXT Z% 

GOTO 1230 IF STATUS.JOB% >= 0 

TABLE.COUNTER% = TABLE.COUNTER% 


1 % 


(FLAG FOR DELETION 


(ENTER A ONE IN THE TABLE 
GOTO END OF ROUTINE 


(CONTINUE LOOPING 


(ENTRY NOT IN TABLE 
AND NOT IN “C STATUS SO SKIP 


(INCREASE TABLE BY ONE 


5000 

\1 

\( 

\( 

5010 

\ 

\ 


5030 

\ 

\ 

\ 

\ 

\ 

5040 


JOB.NUMBER%(TABLE.COUNTER%) = TEST.JOB.NUMBER% 

PROJ%(TABLE.COUNTER%) * TEST.PROJ% 

PROG%(TABLE.COUNTER%) = TEST.PROG% 

ENTRY.TIME$(TABLE.COUNTER%) = TIHE$(0) 

REMOVE%(TABLE.COUNTER%) = 0% 

(ENTER THE JOB INTO THE TABLE 
WITH THE CURRENT TIME. 


RETURN 


(SUBROUTINE FINISHED 


This routine removes the entry from the table 


JOB.NUMBER%(Y%),PROJ%(Y%),PROG%(Y%),REMOVE%(Y%) = 0% 

ENTRY.TIMES(Y%) = "" 

(CLEAR OUT OF TABLE 


FOR Q% = Y% TO TABLE.COUNTER% - 1% 


(LOOP THROUGH REMAINDER OF 
TABLE AND MOVE UP ENTIES 


JOB.NUMBER%(Q%) = JOB.NUMBER%(Q% + 1%) 

PROJ%(Q%) = PROJ%(Q% + 1%) 

PROG%(Q%) = PROG%(Q% + 1%) 

REMOVE%(Q%) = REMOVE%(Q% + 1%) 

ENTRY.TIMES(0%) = ENTRY.TIMES(0% + 1%) 

(MOVE THE TABLE ENTRY UP 1 


NEXT 0% 

JOB.NUMBER%(TABLE.COUNTER%), 


(LOOP TILL DONE 


V 

\ 

5060 

5070 

6000 I* 

\! 

\! 

\( 

\(***** 

6010 

6020 

6030 

\ 

6040 

\ 

6050 

6060 

6070 

32000(* 

\( 

\( 


32010 

\ 


32015 

32020 


32030 

\ 


32040 

32767 


PROJ%(TABLE.COUNTER%), 
PROG%(TABLE.COUNTER%), 
REMOVE%(TABLE.COUNTER%) 

= 0 % 

ENTRY.TIMES(TABLE.COUNTER%) 


TABLE.COUNTER% 
RETURN 


TABLE.COUNTER% 


(CLEAR OUT LAST ENTRY IN TABLE 
(DECREMENT TABLE SIZE 
(ALL DONE 


This routine checks to see if the jobs in the table are still 
logged in 


FOR Z2% = 1% TO TABLE.COUNTER% 


(LOOP THROUGH TABLE 


GOTO 6060 IF REMOVE%(Z2%) = 1% (WHO CARES IT WILL BE REMOVED 
ANYWAY LATER 

FS = SYS(CHRS(6%)+CHRS(26%)+CHRS(JOB.NUMBER%(Z2%))) 

(GET JOB STATUS 

GOTO 6060 IF PROJ%(Z2%) = ASCI I(MID(FS,22%,1%>) 

AND PROG%(Z2%) = ASCII(MID(FS,21%,1%)) 

(SKIP IF STILL LOGGED IN 


REMOVE%(Z2%) = 1% 

NEXT Z2% 

RETURN 

ERROR PROCESSING 

IF ERL = 190 THEN RESUME 220 

IF ERL = 1010 THEN RESUME 220 

IF ERL = 1020 THEN 1230 

IF ERL = 6030 THEN REMOVE%(Z2%) 
RESUME 6060 

ON ERROR GOTO 0 
END 


(THIS TABLE ENTRY NO’LONGER 
L(XJGED IN 


(JOB DOES NOT EXIST 

(JOB DOES NOT EXIST ANY MORE 

(JOB LOGGED AT THIS TIME 


(JOB IS LOGGED OUT, ERROR 
IN GETTING SYS CALI- STATUS 
THEREFORE REMOVE ENTRY 


(ALL DONE 



BACtfLo®© (jo it all! 


BAC into RTS /BAC into MAC /BAC into BAS BACmac is a unique software tool, running 

under RSTS/E, which provides the following 
conversions; 

■ translation from Basic-Plus "compiled" back to 
Basic-Plus source code (only the comments will 
be missing) 

■ translation from Basic-Plus into Macro source 
code, which compiled under RSTS runs faster 
than Basic-Plus 

■ translation from Basic-Plus into Macro source 
code which may be compiled under RSTS for 
execution under RTl I — a migration facility 

■ translation from Basic-Plus into a RUN-TIME- 
SYSTEM. Now you can write an RTS in Basic-Plus. 
The ideal solution to memory thrashing due to 
"multi-copy" applications programs. 

RSTS/E. RTl 1, Macro-11 and Basic-Plus are trademarks of Digital 
Equipment Corporation. 

S F' ^ ^ —Sf— Telecom Computer Systems, Inc. 

-PO. Box 03285 

^ ^ _ £_ Portland. Oreoon 97203 

Please wnte for more information k— J-Z-J- 503/286-5122 
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BUNK: 

A BASIC PLUS PREPROCESSOR 

By Steve Holden, Manchester University, Dept, of Computer Science, Manchester, England 

ABSTRACT 

A preprocessor is described for use in a BASIC programming environment. The 
available directives, and some techniques which can be used to overcome 
weaknesses of BASIC PLUS, are presented. Experience with the preprocessor as a 
tool for producing commercial software is described. 


INTRODUCTION 

About eighteen months ago my company was charged 
with developing the software for a small PDP-11 bureau, us¬ 
ing the RSTS/E operating system. 

With an 11 /34, and only a small development team, we 
had to come up with a way of increasing the productivity of 
our programmers. We decided to base our development ef¬ 
fort on BASIC PLUS, which offers quite fast program 
development and a relatively easy upgrade to the compiled 
language BASIC' PLUS 2. This could later be used to make 
more effective use of system resources. 

The major software tool has been a preprocessor, which 
accepts a superset of BASIC PLUS. 


What BLINK Does 

The BLINK preprocessor reads a source file which looks 
like BASIC PLUS with certain things added (BLINK directive 
lines, labels, set symbols), and certain others left out (line 
numbers). 

From this source file BLINK produces a BASIC PLUS file 
which can be loaded and compiled in the usual way. 


Reasons for Development 

BLINK is a response to some of the problems of pro¬ 
gramming in BASIC PLUS. Whilst the base language is ade¬ 
quate for expressing algorithms, there are few facilities 
which encourage the programmer to develop suites of pro¬ 
grams in a neatly modular way. 

The BLINK project was started because our standards, 
based on those published by DECUS, called for certain types 
of code to be allocated line numbers within certain ranges. 
We found it difficult to move routines from applications 
libraries into our standard libraries, which both started out 
as APPENDable files. 

An obvious solution was to get the computer to enforce 
the standards for us. BLINK allows us to delegate to the 
system those tasks which we find least tasteful and most 
time-consuming. 


The BLINK Language 

BLINK is mostly BASIC PLUS. Indeed, as an aid to 
migration we have ensured that BASIC PLUS will pass 
through the preprocessor without change. 

A line of BLINK may be in one of six types. 

Numbered Lines — The line number is used to set 
BLINK’S program counter, so that subsequently generated 
line numbers will be higher in sequence and thus follow on 
in the usual way. 

Labelled Lines — A label is recognised when a normal 
extend-mode identifier begins in column one. It must be 
followed by a colon, which makes it look much like a label in 
more conventional programming languages. 

The label is entered into the label table, a line number is 
allocated to it by incrementing the program counter, and a 
new line of output code is commenced. 

Comments — To encourage liberal use of comment as a 
documentation aid. any line beginning with an exclamation 
mark in column one is considered to be a comment, and 
completely ignored by the BLINK preprocessor. 

Directives — All lines beginning with a period are con¬ 
sidered to be requests for the preprocessor to take some 
special action. The various directives are discussed at some 
length below. 

Code Lines — Any line which starts with a blank or a 
tab is considered to be code. Such lines are passed through 
to the output stream after certain symbol substitutions 
have been made. 

Blank Lines — These are not considered significant 
when they precede a directive line, allowing the conscien¬ 
tious programmer to improve the readability of his code. For 
simplicity of processing, we assume that all code continua¬ 
tion is indicated by ampersands as in BASIC PLUS 2 and the 
extend-mode convention. 

A blank line thus triggers incrementation of the pro¬ 
gram counter and the start of a new output statement. 
They are often used to delimit the scope of a multi¬ 
statement THEN or ELSE group. 








With LSI 11/PDP11 Software 
Compatible DiscrTape Con¬ 
trollers Offering Single 
Board Low Power ^^P Based 
Design and Low Cost... 

Plus Many Other Good Reasons! 

The reasons start with DILOG’S (Distributed Logic 
Corp's.) full time engineering and design staff. Not 
outside suppliers. That means when you contact DILOG 
for product selection or after sale service, you’ll get “first 
hand’’ assistance...along with years of experience 
manufacturing iP based controllers that interface with 
DEC 11 CPUs. 

The intelligent products you’ll discuss all utilize 
common proprietary architecture and DILOG automated 
design techniques—products with exceptional reliability 
and cost efficiency... mostly available from stock. And 


when you plug a DILOG con¬ 
troller into your DEC CPU it’s 
ready-to-run because it’s fully 
operating system software 
compatible. 

These high performance 
data storage interface products also feature • minimum 
bus/space requirements • up to 60% less power • 10 to 
50% lower cost • automatic self-test... and numerous 
other features for easy system integration. 

Consult the DILOG/disc-tape compatibility table for 
your needs. Then ask for detailed data on existing, or 
future products from DILCG...#1 in single board DEC 11 
compatible disc/tape controllers. Distributed Logic Corp., 
12800-G Garden Grove Blvd., Garden Grove, CA 92643, 
Phone: (714) 534-8950 • 64-A White Street, Red Bank, 
New Jersey 07701 Phone; (201) 530-0044 
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AMPEX 

CIPHER 

CONTROL DATA 

DIGI-DATA 

KENNEDY 

MICRODATA 

PERTEC 

TANDBERG DATA (IDT) 

WANGCO 

TDX 


BASF 

DECITEK 

MICROPOLIS 

PERTEC 

REMEX 

SHUGART 


•Trademark Digital Equipment Corp. 


AMPEX AMPEX 

CAELUS CONTROL DATA 

CENTURY DATA 
CONTROL DATA 
DEC 
DIABLO 
lOMEC 
MICRODATA 
PERTEC 
WANGCO 
WESTERN DYNEX 
DRI 


CAPACITIES .25 TO 300 MB 


DISTRIBUTED 
ILOCIC CORP. 


AMPEX 

CENTURY DATA 
CONTROL DATA 
BALL COMPUTER 
MITSUBISHI 


BASF 

CONTROL DATA 

FUJITSU 

KENNEDY 

MEMOREX 

PRIAM 

SHUGART 

SEAGATE 

QUANTUM 

IMI 


DEI 

KENNEDY 

PEREX 
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BLINK SYMBOLS 

The preprocessor handles two types of symbols not nor¬ 
mally a part of the BASIC PLUS language. 

Labels are substitute for line numbers, which we feel 
harden' BASIC PLUS code, and make it less likely that a 
piece of code will be usable elsewhere. 

A reference to a label in the code is preceded by the 
commercial at sign (@) because this makes them easy to 
detect by the preprocessor and also flags them to the eye of 
the human reading the code. 

It is interesting to note that the "at" sign is one of the 
few with no syntactic significance to the BASIC PLUS run¬ 
time system. It was chosen in preference to the others, after 
several false starts, largely because it is available without 
use of the shift key on most of our locally available 
keyboards. 

The second type of symbol is the so-called set symbol,' 
which may hold an arbitrary string. Several of the BLINK 
directives are concerned with setting and testing the value 
of these symbols. 

They can thus be used 

— to control the inclusion or exclusion of a given piece of 
code from the source file, allowing systems to be con¬ 
figured by feature selection. 

— to generate different literal strings or variable names 
during different preprocessing runs, allowing the same 
source to produce code which is tailored to the cir¬ 
cumstances. 

— to modify the actions of library routines, or the code that 
such routines generate, giving a more flexible applica¬ 
tions library without undue duplication of code. 

The value of a set symbol is obtained in the program 
text by flagging the reference in the way shown below. 

PRINT "@/TYPE/Ledger" 

The above code fragment could result in the printing of 
"Sales Ledger", "Purchase Ledger" or " Nominal Ledger" ac¬ 
cording to the value of the set symbol TYPE when the code 
is processed. 

To assist in such configuration a means is provided of 
setting symbols in the CCL command which triggers a 
BLINK preprocessing run. 

It is interesting to note the parallels between program¬ 
ming in BLINK and programming in an assembly language 
followed by link-loading. 

In both cases, the code produced from symbolic sources 
is absolute, although BASIC has the advantage that inser¬ 
tion of new code is much easier than it is in machine code. 

In both cases the programmer s task is eased by allow¬ 
ing him to make use of pre-written libraries, eliminating 
duplication of effort. 

Furthermore, it is the task of assigning fixed numbers 
(addresses in assembly language, line numbers in BLINK) 
which prompted the development effort. 

This parallel was the main spur to the BLINK project, 
and the facilities of MACRO-11 and the task builder were 
used a model when various enhancements were made to 


BLINK. It is a sad reflection on the state of commercial pro¬ 
gramming that many of the features for long taken for 
granted remain unavailable in one of the most popular 
languages. Naturally the introduction of BASIC PLUS 2 has 
changed the situation somewhat, but we feel that even in a 
PLUS 2 programming environment many of the configura¬ 
tion abilities of BLINK would continue to be useful. 

BLINK DIRECTIVES 

Apart from the symbol substitution features men¬ 
tioned above, BLINK enriches the base language by proc¬ 
essing directive lines. 

A BLINK directive is flagged with a period in column 
one, followed by a keyword to specify the required action, 
and optionally a list of arguments to modify the action. 

There are several types of directive, and they are split 
for the purposes of discussion into several different classes. 

Code Sharing Directives 

One of the best ways to improve programmer produc¬ 
tivity is to make it easier to use someone else's code than to 
write a routine yourself. 

BLINK has facilities to allow a section of code from 
another file to be inserted in line, which is similar to the ac¬ 
tion of an APPEND command. It also has library searching 
facilities, which help to reduce the number of files on the 
disk, and reduces file processing overhead during pre¬ 
processing. 

.INCLUDE file 

takes the text contained in the named file (with default of 
SY:(SELFj.SRC) and processes it as though it replaced the 
INCLUDE directive in the source program. INCLUDE direc¬ 
tives may be nested up to a depth of nine, although in prac¬ 
tice we have not yet felt the need to go beyond two or three 
levels. 

.LIBRARY module 

adds the given module name to the list of modules for which 
library search must be performed when the end of the top- 
level source file is encountered. 

.SEARCH file 

adds the named file (with default SY :(SELF).LIB) to the list 
of files to be searched for requested modules during library 
processing. The libraries are searched in the order of the 
SEARCH directives met during the source scan. 

.NEEDS module 

allows a library module to cause an error if some other re¬ 
quired module was not requested. 

Symbol Setting Directives 

The set symbols are translated as having the null value 
if no value is assigned in the CCL command or during source 



Pascal POWER lor your RSTS Machino 



LEAP INTO THE SO's with Accounting Software in Pascal. The TBS accounting systems, in use internationally for 
the past 2 years, are now available for the RSTS user. The systems are designed to fulfill your accounting needs for the 
years to come, using the speed and flexibility of RSTS and Pascal. 


FIVE INTEGRATED FINANCIAL PACKAGES: A/R, G/L, A/P, Payroll, and Order Entry with Billing, Inventory 

Control, and Sales Analysis. 


• INTERACTIVE 

• EASY-TO-USE 
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• WELL DOCUMENTED 


• MENU-DRIVEN 

• VERSATILE 

• SOURCE CODE AVAILABLE 


• EXTENSIVE REPORTING CAPABILITIES 

• CUSTOMIZATION SERVICES 

• HIGHLY PARAMETERIZED FOR 
RAPID MODIFICATIONS 


PASCAL DEVELOPMENT SYSTEM: A complete multi-user ISAM-type file handler and an extensive package of external 
procedures and utilities, designed to greatly reduce software development time. Standard maintenance and print pro¬ 
grams can be created in less than an hour. 

Pascal programs are easily maintained, updated, and modified. The systems are also available on HT-1 1, TSX-Plus, 
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processing. Thus a reference to an undefined set symbol is 
not considered to be an error. 

•SET symbol = value 

assigns the value on the right of the equals sign to the sym¬ 
bol named on the left. The assignment is unconditional. 

.DSET symbol = value 

acts like a SET, except that the assignment is only made if 
the symbol currently has the null value. This allows an IN¬ 
CLUDED or library text to assert default values for its 
generation parameters. 

.ASK symbol 

prompts for the value from the terminal if the symbol cur¬ 
rently has the null value. This is a useful directive when 
generating a highly-configured piece of software, when 
there are two options open to the programmer. 

He may generate the file as it stands, when he will be 
prompted at the terminal for the system generation 
parameters. 

Alternatively, he may write a module which SETs some 
or all of the system generation parameters and then IN¬ 
CLUDES the source file. Because of the null action when the 
symbol is already defined, he will then not be prompted for 
the parameters he has set when he generates this higher- 
level module. 


Conditional Assembly Directives 

When writing turnkey software it is quite often 
desirable to include or exclude certain sections of code ac¬ 
cording to whether particular features are required (and will 
be paid for!). 

BLINK has facilities to optionally skip sections of the 
source code, depending on the value of one or more 
arguments to the directives. 

.ENDIF 

delimits the scope of all conditional assembly directives 
given below. If conditional skipping is not taking place then 
it has no action. 

.IFB string 
.IFNB string 

assemble the lines up to the next ENDIF if the remainder of 
the directive line is (or is not) blank. These directives are 
most often used to test the value of a set symbol, as in 

.IFNB ©/TEST/ 

where the following code is assembled only if the set symbol 
TEST has a non-null value. 

.IFEQ stringl.stringZ 
.IFNE string l.stringZ 

continue processing if the two strings are (or are not) iden¬ 
tical. This is useful where one or more options exist during 
system generation, as in 


.IFEQ @/TYPE/.P 

(Purchase ledger code) 

.ENDIF 

.IFEQ ©/TYPE/.S 
(Sales ledger code) 

.ENDIF 

At present there are no facilities to nest the conditional 
directives, although this is an obvious extension to the cur¬ 
rent language. Since an ENDIF has no action if skipping is 
not taking place, however, as long as the scope of two condi¬ 
tionals ends at the same place such an action can be 
simulated in a way which will be upwards-compatible with 
nesting when it is implemented. We can write after the 
above code 

.IFNE @/TYPE/,P 
.IFNE ©/TYPE/.S 

.PRINT ?lnvalid ledger type ©/TYPE/ 

.ENDIF 

.ENDIF 

Since the first ENDIF delimits the scope of both condi¬ 
tionals, skipping can never be taking place when the second 
one is encountered, and it will be ignored. When nesting is 
implemented, however, it will delimit the scope of the sec¬ 
ond IFNE directive. 


Program Section Directive 

Many installations, ours included, have adopted stand¬ 
ards which call for restrictions on the line numbers which 
may be used for certain types of code. 

It is common, for example, to put array dimensions in 
at 900-998, initialisation code at lines 1000-1999. and so on. 

Whilst BLINK has to a large degree removed the need to 
consider line numbers, it is still useful to know roughly 
whereabouts in the program a piece of code will be found — 
during interactive debugging, for example. 

Furthermore, it often happens that a single source 
module must ensure that certain variables are preset during 
initialisation, or that a particular error at a certain line is 
catered for in the error handler. 

This is catered for by splitting the range of permissible 
line numbers into named program sections, or PSECTs, 
which will be a familiar concept to the MACRO-11 program¬ 
mer. Each PSECT has its own program counter, and so 
BLINK will resume output at the next available line number 
within that section when it is resumed. 

.PSECT (section-name) (.LD:n) 1,HZ:m 
is the directive which causes the preprocessor to switch be¬ 
tween different sections. We will deal with the most com¬ 
plex case first, where all arguments are specified. 

.PSECT 1NIT.LD:1000.HI:1998 

declares a program section, with limits on the line numbers 
which may be generated from within it. If a PSECT named 



Do you own a PDP-11? 

Do you need to move files between PDP-ll’s? 



XORENIPL-11 


The simple way to transfer PDP-11 files 


XOREN IPL-11 is a software package which enables files to be transferred 
over a communications link between two DEC computers each of which 
may be a PDP-11, an LSI-11 or a VAX*11, Using the package, files can be 
transferred over a telephone line or a direct line. 



- INTERFACE HARDARE- 

No special interface hardware is required other than (in the case 
of remote computers) modems or acoustic couplers. Package 
operates via standard DEC terminal interface cards—DL11, DZ11, 
DH11, etc. 

- DATA INTEGRITY 

CRC checking by software to CCITT recommendation V41. Re-transmiss- 
ion of bad blocks is used for error recovery. 


- TRANSMISSION - 

Asynchronous transmission with selectable speeds up to 9600 baud. 
- OPERATING SYSTEMS - 

Versions of this package are available now to run under RSX -11M, RT-11, 
RSTS/E, (and equivalent versions of CTS - 300 and CTS - 500), IAS and 
VAX/VMS in RSX -11M compatibility mode. 

- LICENCE 

The package is normally supplied under a 5-year licence. A separate licence 
is required for each combination of CPU and operating system under which 
IPL-11 is to run. The two (5-year) licences required to link two CPU's cost 
$1350.00 each, whichever pair of operating systems is specified. For larger 
orders a system of discounts is applied. 




Note - Xoren Computing is currently 
setting up a distributor network for 
XOREN IPL-11 in the US. For 
further information contact 
Xoren Computing Ltd direct. 


Xoren Computing Ltd. 

28 Maddox Street, 
London W1 R 9PF 
England 

Telephone (01) 629 5932 


Specialists in;- 
Minicomputer Software 
Microcomputer Software 
Data Communications 
Interprocessor Links 
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INIT already exists then this attempt to specify new limits is 
considered an error. 

Most often, this form is used in a module which is IN- 
CLUDEd by a programmer almost at the beginning of his 
source code. If he does this, the PSECTS will be set up for 
him. and he does not need to bother about establishing his 
own PSECTS. 

.PSECT INIT 

causes the preprocessor to switch back into the INIT section, 
resuming code output where it left off when it was 
switched out. Thus, since BLINK normally generates code 
with increments often between line numbers, if the last line 
generated in the INIT section was 1050. it will recommence 
output at line 1060 (unless a line number appears to reset 
the program counter). 

Lastly, the PSECT directive may be used without any 
arguments. This is principally convenient for INCLUDEd and 
library modules, as it switches into the PSECT which was in 
force when the module text was commenced. 

One particularly useful application of the PSECT direc¬ 
tive has been in error handling. Our standard program 
skeletons all set up a PSECT named ERRORS, and included 
initialisation code which traps errors to the start of this 
section. 

Any INCLUDED module can specify private error trap¬ 
ping with the sequence 

.PSECT ERRORS 

IFERL=@LAB% ANDERR = 99% & 

THEN RESUME @LAB2 & 

.PSECT 

This obviates the necessity for routines to specify a 
private error trap, which we have found to be a fruitful 
source of errors in the past. Note also that, since label 
references are translated into line numbers by BLINK, it is 
legal to use them to specify an integer error line number. 

Miscellaneous Directives 

There are two other directives which do not easily fall 
into one of the above classifications. 

■PRINT string 

prints the remainder of the line on the terminal. It is useful 
for identifying selected options in a complex program 
generation. 

.ENDFILE 

is used to specify that the preprocessor skip the remainder 
of the file or library module it is currently processing. This is 
rarely used (although BLINK generates on internally when it 
actually encounters the end of any source file!), but can 
reduce processing time if an error is detected in the genera¬ 
tion parameters. 


PROGRAMMING TECHNIQUES 

It is difficult to present the features of the BLINK 
language in a coherent way given the space limitations im¬ 
posed on this paper. There are many techniques which we 
have found lead to increased productivity by sharing code or 
reducing debugging time. In particular, we feel that the ma¬ 
jor advantages of the BLINK preprocessor are: 

— A standard program skeleton can be written for each 
type of program (file create, report, et cetera), and 
these skeletons can be used by programmers with 
insufficient experience to define a sensible program 
structure for themselves. Use of these skeletons 
allows one programmer to understand another's code 
much more readily. 

— The standard library, with disk handling routines and 
echo-control terminal input functions are available by 
writing a single directive for each module. 

— When an error is detected in a standard module, it 
only need be corrected once. 

— Since the standard modules are effectively hidden at 
source level, program listings are both smaller and 
more comprehensible. Also, we are encouraged to 
treat the standard routines as black boxes', and use 
only the interface descriptions rather than reading the 
code. 

— Because BLINK encourages a modular approach to 
programming, programmers tend to structure their 
own code in a sensible way. 

Without exaggeration, we claim that programming in 
BLINK is more enjoyable — although this is obviously sub¬ 
jective opinon. 

We have traded the ability to develop programs on-line 
for the flexibility of using a higher-level language, and we 
feel that the exchange Is in our favour. 

We can write programs which have virtual array sizes 
adjusted to the requirements of each customer (by setting 
the dimensions in set symbols), thus saving disk space. 

We can generate multiple programs from the same 
source code, using conditional assembly and putting IN¬ 
CLUDEd file names into set symbols, saving a maintenance 
load as well as keeping the number of source files down to 
more manageable proportions. 

USER EXPERIENCE 

BLINK has been used to produce several fairly complex sets 
of applications programs, now all in use on a timeshared 
PDP-11/34 in parallel with further program development. 

Sales and Purchase Ledgers 

This comprises about twenty programs, plus some 
associated file maintenance utilities. With the exception of 



MENU is an applications 
development aid that 
provides the DEC RSTS 
software developer with a 
powerful process control 
device. 


within an individual account. 
Separate project-level 
control minimizes System 
Manager interaction for 
system level security. 

MENU is driven by simple 


MENU installs in minutes and 
requires no software 
modifications. 

MENU provides a common 
interface for all your users 
and application needs. 
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menus that guide the appli¬ 
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extent of program control, 
type and level of security, 
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tation of on-line ‘/HELP’ 


For information on MENU, 
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you the missing link. 



information. 

MENU provides a separate 
Run Time System to prevent 
unauthorized access to RSTS 
‘ready state’ resources. 
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security by allowing multi¬ 
level access capabilities 
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programs concerned with producing cheques and remit¬ 
tance advices (unnecessary in a sales ledger), all programs 
are produced in two versions from a common source. 

It is hard to estimate the amount of effort this has 
saved, but it has definitely cut the load of maintaining the 
system, which is in daily use by up to eight bureau clients. 

Magnetic Tape Archiving System 

The principal feature of this system is an index, held in 
virtual arrays, specifying which files were dumped to which 
tapes on which dates. It would obviously be wasteful to 
make the file big enough to cope with a thousand files when 
only a couple of hundred were to be archived. 

A source file specifying the size of all these arrays is IN- 
CLUDEd in each program, allowing a simple systems genera¬ 
tion procedure for turnkey clients requiring the package. At 
the same time they are customised as to client name. 

Contract Costing System 

This system was the first to provide integration be¬ 
tween the sales and purchase ledgers, and a payroll system 
written outside our company in straight BASIC PLUS. 

As purchase, sales and payroll details are entered they 
are also used to update a cost ledger maintained for all the 
client's contracts. 

This application has its own source libraries, which con¬ 
tain routines to access hash-indexed files. They proved to be 
so successful that a more general version of them is shortly 
to be incorporated into the systems library. 

General Libraries 

These libraries are used by all applications suites. When 
turnkey packages are required for an outside customer it is 
a simple matter, for example, to update the routines con¬ 
cerned with 
visual display 
addressing and 
output and re¬ 
generate the 
programs to 
the new re¬ 
quirement. 

Applications 
Libraries 

As an ex¬ 
ample of the 
versatility of 
these library 
modules, 
should a turn¬ 
key customer 
require tight 
formatting on 
customer ac¬ 
count referen¬ 
ces, only one li¬ 
brary module 
need be 
changed. This 


update would automatically be incorporated into all pro¬ 
grams as they were generated. 

Some Problems 

The major current problem is that of sharing the 
development machine with an interactive bureau service. 
BLINK is written in BLINK, and can place quite a heavy load 
on a PDP-11 /34 with storage module drives. Fortunately, 
the major development effort on the ledger packages is now 
over, and amendments can usually be made by editing the 
sources during the day and submitting an overnight batch 
job to regenerate the suite. 

We feel, nevertheless, that BLINK could be usefully 
rewritten in some compiled language, although no statistics 
are available to indicate whether the generation process is 
disk- or CPU-bound. 

BASIC PLUS 2 is the obvious candidate, since the 
generation process will work just as well for that as for 
BASIC PLUS. String handling still imposes quite a heavy 
overhead in PLUS 2, however, and for this reason we feel 
that MACRO-11 or PASCAL might give better performance. 

At the same time, it would be useful to incorporate at 
least some lexical and syntactic analysis of the program. 
This would allow the preprocessor to decide for itself which 
functions had no definitions in the source programs, and 
should therefore be sought in the libraries. 

It is somewhat annoying to go through the whole proc¬ 
ess of program generation only to be informed by the BASIC 
run-time system of syntax errors or undefined function calls 
introduced by the last edit. 

Eventually it may be possible to produce a true compiler 
for BLINK, which output object modules for processing by 
TKB or LINK. With the increased usability of VAX BASIC and 
BASIC PLUS 2, however, the major advantage of this would 

be portability 
of applications 
software. 

In this re¬ 
spect, a com¬ 
piler which 
output code to 
run under 
RT11 would be 
especially use¬ 
ful in allowing 
migration of 
applications 
packages 
down to the 
LSI-11 based 
systems. 

With prop¬ 
er design it 
should even be 
possible to 
transfer the 
language to 
completely dif¬ 
ferent series of 
machines, as 



Cartoon by Kevin Macey, Submitted by Peter Dick, Silver Programs. London 
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has happened with BCPL and SPITBOL, for example. In the 
long run the user community could be expected to benefit — 
although, of course. I am sure that Digital Equipment will 
continue to provide a high level of portability in their own 
software. 

Code Samples 

To give a small idea of the flavour of BLINK, a section of 
the preprocessor itself is shown. We hope this gives the 
reader some impression of the improved style which the 
BLINK programmer can assume. 


.r>nf I iHS- ;»3 
.DSI I MX 11 :S inn 

.f5.iU I DIMS 


\ Dili Il:l’:<1«‘/MX IMS/) » MVI|:S/) . : 51 AD* v •'•/MX I US ' f 

\ NX IX-I*/IDS/ X 


DIF INSNDXIX*) X 

\ SL(JIX=uDl*>:rX$)«rDI*X(Mr:HI<X1.| I fDX*) I7.))» AND /■ 

SI 1)1 X ‘^■1 MIX tSl MlX/IDSX)« IDSX X 

' WHM 1 IDI XISI MIX 1 X 

\ MUM N’.Nm.NU 11 SIAf;i1i<SI Mi;w> --X* X 

\ Sinix IDLX<SLOIX) ' X 

\ Nl X I X 

\ DO ID {/7<S7 IF I NI F-XCSFI SYMI .MI lADlt MMI M I MW • X 

II NX IX =r:|?/MX IDS/ X 

\ UIAF:l*c;i liIX)^X* X 

\ I Dl XI SI MIX) - NX IX X 

\ NX IX-NX 1X^1X X 

X 

SND.ND: FNSNDX=SIUIX X 

\ f NDND X 

Df F FNSriDSX<NX> • SI IH I I Si I I N K 

\ 1 NSl I DSX NX ' Al WAY*, hi IMKN DS NM. X 

\ JF NX CDSX • IF i;i lANl; IND FSFDIb 

IFIF^N Ft;XlCFSX)^P(:X ' Srtl/t i.DKKINI II X 

\ F CX=-F CXtNX) ' AND I MAD NF W DNF; K 

\ iiix<i:fsx)=hix • sami mid fim:h x 

\ mix HIX(NX> ' I^NI» IMAI) fj| W DiH X 

N I i)xn:psx>-Lnx • ‘.ali mid i mw x 

\ LnX^LOX<NX) • r.Ml* IM..D Nl W DNl. h 

F Nl ND •-- - - X 

DF F FNF ‘.NI IX<X$) • I I ND I-Si I I NMllDI k X 

\ DIIID Wl s.ND II F ‘;NAM*<.MINrX)*Xt • Mill IF FMDND IF X 

OK- F SNAM*I.JUNKX>** • ' DK- NMI IFlfKF R 

F OK .)DNKX-=1X ID /SX • SDANNINI^ AI L NAMI S X 

\ soil) J//6/X IF- F Nl DXC ■ :F*SI i:i lADIF FIMI < F NF ' .IXIX) ■ ) X 


FSJ.ND; F ND*ini)X=.MINI X 
\ F Nl ND 


•J! I h i SI M. I X 


SUMMARY 

BLINK is a first attempt to produce some much-needed 
support for the BASIC PLUS programmer. It has proved 
itself to be valuable in a commercial programming environ¬ 
ment. although a more efficient implementation would be 
useful. 

It also encourages the programmer to break down his 
programs into functional modules, since in this way he gains 
maximum benefit from the preprocessor. 

We would like to see more installations expending ef¬ 
fort to make the programming process easier and more en¬ 
joyable, since the shortfall in European software staff does 
not seem likely to disappear in the next few months. 

We feel that it is only by consciously moving for more 
effective programming techniques that the user community 
will overcome the present difficulty with maintaining com¬ 
plex applications packages. 


Software 

Product 

Description 

Product Name: LOCK-11 Version 2.1 
Description: 

Lock-11 is a security superstructure built upon the standard RSTS 
password structure that provides the following extensions: 

• Absolute control of system access by keyboard. Manager may 
limit any keyboard to certain accounts or groups of accounts 
and control time of access. 

• Password knowledge is no longer carte blanche system access. 
System detects unauthorized use of passwords. Privileged 
passwords don’t work on non-privileged keyboards. Non- 
privileged passwords work only on specified keyboards. 

• Real time system surveillance. Manager specifies a list of alarm 
keyboards which log all infractions and probes as they happen. 
Opser is not required. 

• Auto-login (with or without password) and chain with specified 
core common contents by KB. 

• Manager may establish special priority/burst settings by KB. 
Manager may establish default output protection code. @ 
assignment and up to three specific user logicals for each KB. 
All assignments are made at log-in. 

• Manager specifies a list of console keyboards from which secur¬ 
ity file editor may operate. 

• Manager may define a KB-specific access-denied message. 

• A macro DYNPRI program is included which performs the 
following functions: 

• Users may be dispatched into ten separate priority queues, 
separately tunable on-line. Each queue has ten levels. Queues 
are selectable by KB. 

• Program detects hibernating jobs and announces the fact on 
ALARM keyboards. Privileged jobs hibernating cause extra 
loud and long alarms. 

• The program produces almost no load in operation and runs 
in 5K words. 

• Program will hold up to fourteen files open for performance 
purposes. 

Minimum Hardware/Software Required: 

Any valid RSTS/E system running Version 7.0 or later. Any version 
of RSX emulation is needed. 

Support: See License Agreement 

Installation: User Installed 

Ordering Information: 

Available on 9 track 800 or 1600 BPI tape. Multiple CPU discount 
schedule: 

First license 0% discount 

Second thru Third license 50% discount 

Fourth thru Twentieth license 70% discount 

Licensed users desiring source code for internal use only must ex¬ 
ecute a separate Program Sources License Agreement. Sources are 
available at ten times the initial license fee. 

License Fee: 

Single CPU license: $950.00. Annual maintenance at 12% of cur¬ 
rent list price. 

Contact: 

Dave Mallery 
Nationwide Data Dialog 
215 - 364-2800 
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$REORDR — Sorting Alphabetically 

By George T.A. May, Special Systems Division, Software Sciences Limited, UK 


RSTS professionals may be interested in this slight variation to 
$RE0RDR which allows it additionally to sort the directory in alpha¬ 
betic order as well as the normal date and time sorts. This can be use¬ 
ful if you want to look for a particular filename in a directory. I have 
found it helpful for program development directories where one 
tends to have a mass of files and date order is not so interesting, but 


names are. The following source file $REORDR.BAC <124> or 
whatever it is called in a particular system. 

I’ve attached an Installation process and demonstration run. You’ve 
got to follow the installation process else RSTS Basic Plus routine 
system screws you up because I’ve redefined function FNI%. 


INSTALLATION 

HKIOlO 

HKIOlO 

. BAK 
.CBL 

33 

33 

< 48. 

< 48. 

17-Jun-81 

17-Jun-81 


HKIOlO 

,HLP 

2 

< 60> 

19-May-81 


HKIOlO 

.LST 

87 

60 > 

16-Jun-81 

Ready 

HKIOlO 

.OLD 

76C 

<124 

05-Jun-81 


HKIOlO 

.001 

32 

< 48; 

17-J.jn-81 

OLD Cl YliOOJktUKDK.OLD 

IMU 

. CNO 

2 

< 60> 

17-Jur.-81 


INOl 

.CNO 

2 

< 60;> 

17-Jun-81 

Ready 

10050 

.BAK 

156 

< 60> 

16-Jun-81 


10050 

.CBL 

156 

< 60> 

17-Jijn-81 

DFlLETi: 4030» 15210 

POL 

.CNO 

2 

< 60> 

17-Jun-81 


POLL 

.CNO 

2 

< 60> 

17-Jun-81 

Ready 

PR030 

.BAK 

34 

< 60> 

05-May-81 


PR030 

.CBl 

35 

< 60> 

17-Jun-81 

RPPIACE REORDR.TMP 

PR030 

.OLD 

81C 

<124> 

05-May-81 


STDOl 

. BAK 

24 

6o:; 

13-May-81 

Ready 

Binoi 

.CBL 

24 

< 60> 

17-Jun-81 


STDOl 

.OBJ 

23 

< 4 0> 

13-May-81 

OLD REORDR.TMP 

STDOl 

.SKL 

1 

< 60; 

13-May-81 


TEMP49.TMP 

36 

60> 

17-Jun-81 

Ready 

UKBP02 

.DAT 

163 

< 60> 

14-May-81 

APPEND REORDR.APP 

Total ( 

af 1076 

blocks 

in 24 

files in SY:C1»140] 


Reads 

BYtK 


Read s 

PIR Cl » MO3/LI 


DEMONSTRATION 


Name 

COHMON 

HKIOlO 

DUAM 

ERMKBO 

HKIOlO 

HMOlO 

IV050 

UKBP02 

IV050 

POL 

IMO 

HKIOlO 

STDOl 

STDOl 

STDOl 

sinoi 

Pfv030 

PP030 

PR030 

PULL 

INOl 

HKIOlO. 

HKIOlO 

rErtP49 


Reads 

PUN RFORDR 


.Ext 

Size 

P rot 

Date 

.MAC 

31 

< 

40> 

30-Apr-80 

,HLP 

2 


60> 

19-May-81 

,BAC 

31C 

<1 

,24> 

10-Jun-81 

MAC 

10 

< 

60> 

12-Jun-81 

.OLD 

76C 

<1 

,24;- 

05-Jun-81 

.LST 

87 

< 

60> 

16-Jun-81 

. BAK 

156 

< 

60 > 

16-Jun-81 

DAT 

163 


60 > 

14-May-81 

.CBL 

156 

<• 

60 > 

17-Jun-81 

.CNO 

2 

< 

60 > 

17-Jun-81 

.CNO 

2 

< 

60 > 

17-Jun-81 

.001 

32 


48> 

17-Jun-81 

.OBJ 

23 

< 

40> 

13-May-81 

,PAK 

24 

< 

60> 

13-May-81 

.CBL 

24 

< 

60> 

17-Jun-81 

,SKL 

1 

< 

60> 

13-May-81 

.OLD 

81C 

<124 

05-May-81 

BAK 

34 

< 

60 > 

05-May-81 

,CBL 

35 

< 

60 > 

17-Juri-81 

. LNO 

2 

< 

60 > 

17-Juri-81 

.CNO 

2 

< 

60> 

17-Jun-81 

. BAK 

33 

< 

48> 

17-Juri-81 

.CBL 

33 

< 

48> 

17-Jun-81 

. TMP 

36 

< 

60> 

17-Jun-81 

5f 1076 

blocks 

in 24 

files in ! 


SYtCl.MOD 


)e OBOew »LP*»tTIC*LL» 4 

IM>F» INTO Nf«T *(/*IL*»LE T4NGET OFO ENTRY 4 
*UX POINTEH TO FIRST dUOCR riCVONO L«ST NAME ENTRY t 

6X NiHdEa UF BLOCKS IN UFQ A 

CX uFO CLUSTFMSIZE 4 

CS USER ENTERED INPUT 4 

C3X *-i IF reonoeh hy access date S 

* 0 IF REORDER SY CREATION DATE/TIMt A 
» \ IF sorting ALPmAbETICALLY a 
OS UFO file specification of uFO currently being a 

PROCESSED A 

OX dummy variable for internal functions a 

0X0 The UFO TO BE REOROEREO SET UP AS A wOKO ARRAY A 

Fxo FREE entry Counter for each directory block a 

FOX rORkInG variable a 

FIX FORKING variable 4 

IS VERSION/EOir A'S text string a 

IXO ARRAY USED TO hold RETURN FROM FILE STRING SCAN A 
UF USER ENTERED OEVICE/UFO SPECIF ICATION(S) 

SX( , ) ARRAY FOR sorting NAMES BY ACCESS OR CREATION DATA A 
SX COUNT OF NUMBER OF ATTRIBUTE, ACCOUNTING AND A 

retrieval entries for current file being REOROEREO. 4 

SOX a OX IF NO SORT BY ACCESS DATA 0E51RE0 A 

a IX IF SORT BY ACCESS OATa OcSIREO A 
SPIX a FIRST SORT PARAMETER TO FMX • REPLACES OX A 

SP2X a SECONDSOrT PARAMETER TO FNIX • REPLACES TX 4 

SPJX a Third sort parameter to FMX - NEr 4 

IX norking variable a 

1X0 target UFD set up as a .yORO array a 
TOX nURkING variable used in moving OFu CLUSTERmaPS a 
T lX POINTER to NAMfc ENTRY. uSEk) IN CRt AI ION/ACCE SS SORT A 

T^X pointer TO accounting ENIRY, used in CREATION/ACCESS A 

SORT. A 

nS file SPEC FDff tiFO TARGET ARRAY. A 

AX rorking variable a 

AlX norking variable k 

ZX norking variable a 

SnAPXO ITOOO NHEN SORTING A L PH A BF. T IC A LL T , RAD50 CREATES 

A FUNNY OROER F>R T«E NUMBERS (IE -VE 
NUMBERS OCCUR FUR HIGH (NOT LON ) LETTER 

values, fnsnapx reorders Them properly 

BY AOOINb Seibt TO ‘VE VALUES AND SUBTRACT 

-ING JarsK FROM avE values 


PPUPDR y7.0-08 RSTS V7.0-07 HR-AUDIT 
Directory Reorderina Proaram 

&rj,t Directorv(s) (YES/NO) N0>? Y 

Order by CREation Date/Timet ACCess Datei or ALPhabetically <CRE ? ALP 

li. FORfUARDT or REVCERSE] Order<FOR;'? FOR 

novice and UFD Spec i f i cat ion ( s ) ? DR0:C1»M0] 

Directory _DR0JC1»M0J has been Reordered 

Sort Directory(s) (YES/NO) ;;N0>? 'C 

Ready 

PIP L1»M0J/L] 

SY;Cl»140D 


FNIX(LX,OX,TX) 
FNOXO 


IS200 

IbOOO 


CHECK TO SEE IF THIS IS A LARGE FILE SYSTEM A 
AND IF SO. IF ANY FILES ARE OPEN ON THE A 
ACCOUNT TO HE REUROERF.O, A 


1010 

» 

I 

1205 


Name .Ext 

Size 

Prot 

Date 

I'OMMON . MAC 

31 

4 0 

30-Apr-80 

DWAM .BAG 

31C 

: 124;. 

lO-Jun-81 

k PMt- BO. MAC 

10 

60 

12-Jun-81 


input aTX, 'UROER BY CREATION OaTE/TIme, ACCESS DATE, OR AlPhabETICAlLY «CR£>? "iCSA 

A 

GET USER SELECTION » 

GOTO 1210 IF lEN(CS) a ox | 

Ci a LtFT(CVTSS(CS,32X),1X) * 

GOTO 1220 IF CS a "CRE" » 

GOTO 1205 IF CS <» "ACC" AND CS <> "ALP" a 

CJX a -IX IF CS a "AlP" * 

CJX a IX IF CS a "AlP" » 

PRESET TO default VAtUE. DONE IF uEFaulT InPuT, ELSE, A 

GET first three Characters in UPPER-CASE ONLY, OONE IF A 

•CRE". GFT again if not "ACC* OR "AlP". OThEknISE, a 

SET TO ACCESS DATE SETTING | 


PX 


ux 


SXCUX.OX) a OX 
NULENTX a OX 
NULENTX a - 327(.7X-1X IF 
SX(0X,1X) = yULENTX 
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\ iX^O^.^X) • NOLt MT» 

\ SS( 0 S, 3 t) « NULCNT* 

J IMIMLIZE POI^ItW INTO SOO*»Cf »*<«*». ZtRO NU**B£« OF 

t ENTHitS In Fltt. IF SOflTING BT 0*Tt *NU riMt set LOWEST kEtS TU 

I ZEHO. IF SUftTINC Al.P"FBETICALLT. St T TO t*NtEST -VE NUMBkH TO 

1 C*TEB FO« «*0!»0 VtLOtS. NOTE TIMfcs i»u.t Bt WtVEHSEO TO GIVE 

• MlNuUS BEFOiTC MIOnIGhT SO Th*T ThE»£ *»E NO 'SPtCI*L C*St * 

I SU>4TS 

aoso IF CSS S os Then 

ZS«FNIS(LS, 0 S(T 2 S*SS).laaOS-DS(T 2 t*uS),OS) 

\ GOTO aoSS 

I SOSTING BT C«E*TION OSTF *ND TIME 

; NOT TIMES ABE 5NAPPF0 FBOM OHTGINAU VtBSIUN TO MINUTES AFTEN 

1 mIuNICmT 

aosi IF css ■ -IS Then 

ZS»FNIS(tS,OS{T?S*lS),OS,OS) 

\ GOTO AOSS 

I SORTING BY DATE OF LAST ACCtSS 


ISZIO UEF« FNIS(LS,SPtS,SP^S,SPSS) t 

J 

ISZZS IF csssts then a 

SPISsFnSmAPs(SPIS) a 

\ SP^S*FNS*AHS(SP^S) A 

\ SPSSsFnSaAPS(SPSS) a 

1 A 

: IF DOING an alphabetic SORT, BAOSO PRODUCES 'VE NUMBERS A 

J IN A FuNNT PLACE. SO REORDER TmE NUMBERS. A 

: 

ISZSO GOTO 1SSTO IF SOS > OS A 

\ GOTO tSSTO IF SPIS » SSIOS.IS) A 

\ GOTO tSSTO IF SPIS « SSCOS.tS) A 

ANU SPZS » SSIOS.^S) A 

\ GOTO ISS70 IF SPIS z SSCOS.IS) A 

And SP^S s SS(OS«?S) A 

and SPSS > SSIOS.SS) A 

1 S«IP search and CUMPANE if NE" ENTMv GUfS AT (NU OF LIST A 


1SSSO FOR NiS s SS TO SS(OS.OS) 


IF CSS * js then 

ZS»FNlS(LS,PS(PS*tS),OS(PS*?S),OS(PSA JS)) 

SORTING Alphabetically on filename (homos i *no 2) ano .t»T 
obtained from tme ijfo name Bloc* 


function FNISILS. SPIS. SPPS, SPSS) 

THIS Function inserts recoros, in ascending 'act' sequence* 

INTO an in-core array. 

The in-core array consists of ITSS 5-hORO records. tme first 
Three records are used for HDust»ktPiNG Purposes, rmile the 
last ITSS may contain VAtlO data. 

EACH valid record consists of a RSTS/E LIn*huRO(ThE ADDRESS) 
ano threee Integers (date,o.o/oate,time,o/fice,name,e»t.) 
DEPENOInG UN The SORT TYPE SELECTED BY THE USER. )ST RECORD 
(0,0) IN The array contains ThE current count of valid recoros, 
ANO The SOmT parameters OF The hIGhEST RECORU ENTERED. Nt<T TnU 
RECOROS are used FOR TEMPORARY STORAGE DURING »hE EnTRY PROCESS. 

FNIX IS called hITh The FULLOhInG ARGUMEnTSI 

LX - LInahoRD to source UF0 name entry bloc* 

SPtX - either date of creation, or date UF last 
access or first file name rORD for NAMfc BLOC* 
pointed to by lx 

SP2X • TIME UF CREATION OR OX IF SURTInG BY ACCESS DATE 
OR SECOND filename nORO 

SPSX - OX FOR DATE SORTS OR FILENAME EaTENSIoN 
all filenames ano extensions are HtLU IN NAUlA SO 

IF THE caller attempts TO INSERT A RECORD hhOSE *tT IS > THAN 
The highest *tY IN the Flit, ThEN TmE SEARCH ANO COMPARE PORTION 
UF The AlGORIThNM Is SKIPPED. 

THE FUNCTION returns OX IE INSERTION OCCURRtO, AND -lX(TRUt) 

IF insertion (,in NOT OCCUR. 

IF SOX IS reset (OX), NO SORT IS DONE AND THE INSERTION BECOMES 

A simple straight line insertion. 


\ GOTO ISSBO IF SPIX < SX(h1X,IX) 

S GOTO issao IF SPIX z SX(A1X,1X) 

ANO SP2X < SX(A1X,BX) 

\ GOTO ISSBO IF SPIX 3 SX(*IX,H) 

AM, SP2X 3 SX(A1X,BX) 

A NO SPSX « SX(AJX,SX) 

\ NEXT NiX 

I FOR ALL entries IN THf LIST, SEARCH FOR THE FIRST ENTRY 

I ABOVE THE NFn ENTRY Til BE MXOE 

is(70 HlX 3 SXfOX.OX) • SX 

\ SX(0X,U) 3 SPIX 

\ SX(0t,2X) F SP2X 

\ SX(0X,SX) » SPSX 

J SET LOOP FOR single fNTRY ADO AT FNO OF LIST, SAVE 

J *EY AS HIGHEST IN file 

isSBO SX(2X,0X) s LX 

\ SX(2X,IX) 3 SPIX 

\ SX(2X,2X) = SP?X 

\ SX(2X,SX) z SPSX 

\ SX(0X,0X) 3 SX(OX.OX) « IX 

I SAVE entry for loading INTO LIST, InCpEmENT TOTAL NUMBER 

J OF ENTRIES In LIST 

ISSRO FOR AX 3 AIX TO SX(0a, 0X) ♦ 2t 
\ FMh TlX 3 OX TO SX 

I SET OUT A .0 INnEh LOOP COOThuLS H’R DATA MOVEMENT 

: 

17000 DEF* FNSnapxiaTX) 

\ ADO » i27H8. 

\ AOO = -AUO IF aTX *3 OX 

\ At 3 AlX . AOO 

\ FNSaAPXsaT 

\ FNtNO 

J RADIX BO STRINGS no NOT xppfa- In a mUnOTOnICALLY INCREASING 

I ORDER. This FUnCHON RE*OhOERS ThFm S(< That ThEY 00 . 

S27fc7 END 


RSTS/E SOFTWARE PACKAGES 


■ KDSS, a multi-terminal key-to-disk data 
entry system. (Also available for RSX-11M.) 

■ TAM, a multi-terminal screen-handling 
facility for transaction-processing applica¬ 
tions. (Also available for RSX-11M.) 

■ FS0RT3, a very fast sort. Directly sorts 
RSTS/E files containing up to 16 million 
keys or records. Up to 70 times as fast as 
the RSTS-11 Sort package in CPU time. 

■ SELECT, a convenient, very quick package 
for extracting records that meet user-speci¬ 
fied selection criteria. 

■ BSC/DV, a device driver tor the DEC DV11 
synchronous multiplexer that handles most 
bisynchronous protocols. 


■ COLINK, a package that links two RSTS/E 
systems together using DMCIIs. Supports 
tile transfers, virtual terminals, and across-the- 
link task communication. 

■ DIALUP, a package that uses an asynchro¬ 
nous terminal line to link a local RSTS/E 
system to a remote computer system. Sup¬ 
ports file transfers, virtual terminals, and 
dial-out through a DN11. 

(The performance-critical portions of the first 
five packages are implemented in assembly 
language tor efficiency.) 

Evans Griffiths & Hart, Inc. 

55 Waltham Street 
Lexington. Massachusetts 02173 
(617) 861-0670 
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ECHNIQUES 

A Column For Tho Advanced RSTS/E User By Steven L Edwards, software Techniques 


In this issue, we will look at a patch to add form names 
to the one-shot spooling sys-call, the time diferences be¬ 
tween Basic-Plus and Basic-Plus-2 (or CSPCOM) CUSPs (Com¬ 
monly Used System Programs), and the memory differences 
between Basic-Plus and Basic-Plus-2 CUSPs. 

Correction! 

In the last issue. I presented a patch to set a VTIOO to 
VT52 mode upon exiting EOT V2. The patch functions by 
printing the escape sequence to change to VT52 mode. Due 
to the printing font, the last character in that escape se¬ 
quence looks like a "1" (ASCII 49). when it should be a lower 
case "I" (ASCII 108). 

One-Shot Spooling Sys-Call Form names 

The release of RSTS/E V7.0 added a new sys-call called 
the one-shot spooling sys-call. This call allows a user pro¬ 
gram to submit requests to the spooling system (SPOOL and 
BATCH). Now. programs can be written that interface to the 
spooling system directly, instead of chaining back and forth 
to QUE. 

Unfortunately, the implementation of the call requires 
all parameters to be passed in FIRQB, instead of using XRB 
to point to the command string (like the .FSS call). This 
means that there is not enough room to specify a form 
name. This is a limitation to systems that either print on a 
variety of forms, or use the form name to allow the operator 
to select which request gets printed when. 

There is not enough free room in the call to allow the 
specification of the form name, but there is a free bit in the 
flag word passed in the call. This patch tells QUMRUN that if 
the 6 th bit (value = 64) is on in the flag word to use the first 
six characters of the file name as the form name. 

RUN [1.2]CPATCH 

CPATCH V7.a07 RSrS V7.C«37 Softec Dev 11 /70 
File to patch - QUMRUN.BAS = QUMRUN.BAS 
»KB:/CS:1299 
•H/2!/V<cr> 

2!<tab><tab>PROGRAM<tab><tab>: QUMRUN.BAS<cr> 

•H/10140/V<cr> 

10140<tab>M$=J0BP$ &<cr> 

•OAI<cr> 

10135<tab>IF<tab>0NE.SH0T% &<cr> 

<tab>THEN<tab>IF<tab>(ASCII(MID(M$. 4%. 1%)) AND 64%) &<cr> 
<tab><tab>THEN<tab>L5ET FORMS = MID(M$. 9%. 4%)&<cr> 
<tab><tab>! IF THIS IS A ONE-SHOT SPOOUNG CALL. &<cr> 

< tab >< tab > I THEN IF THEY SET OUR FORM NAME BIT IN THE FLAG WORD. &< cr> 
<tab><tab>! THEN JAM IN THE FILE NAME AS THE FORM NAME. a<cr> 

<cr> 

<esc> • V<cr> 

10140<tab>M$=J0BP$ &<cr> 

•EX<cr> 

Patch from —KB:[x.x].CMD complete. 

^tZ 

File to patch - tZ 


After installing this patch, if you set the 6’th bit in the 
flag word (as in the example below) when you send a spool¬ 
ing request, the file name will be used as the form name. 

3010 TEMP.OS = SYS(CHRS(6) + CHRS(-28) + CVT%$(0) & 

+ MID(SYS{CHR$(6) + CHR$(-10) + FILE.NAMES). 5. 8) & 

+ STRINC$(6.0) + CVT%S(SWAP%(4 + 64))) & 

! QUE THE FILE TO "LP:" USING THE FILE NAME AS THE FORM NAME. & 

! AND FLAG IT TO BE DELETED WHEN DONE. & 

Time differences between Basic-Plus 
and Basic-Plus-2 CUSPs 

My initial goal was to demonstrate the time (clock and 
cpu) differences between Basic-Plus and Basic-Plus-2. 1 
figured that the demonstration must be directed towards 
some pratical end, so 1 chose 4 of the CUSPs that I felt were 
particularly ‘piggy.' The CUSPs I chose were 
ANALYS-fANALYI, BACDIR, DIRECT, and REORDR. This 
would show us the benefits to be gained just by using the 
Basic-Plus-2 compiler instead of the Basic-Plus interpreter. 

This was not particularly fair to Basic-Plus-2 because it 
was not designed to be a faster Basic-Plus. What is efficent 
in one language is not always efficent in another language. 

So. I decided to make some minor modifications to the 
programs to make them more efficent for Basic-Plus 2. 
Since all of these programs use virtual arrays, and Basic- 
Plus-2 will do program internal' random caching of virtual 
array file blocks if given the memory, we open the files with 
a recordsize that is a multiple of 512-1-6 (6 bytes to keep 
track of which block is where). I chose a recordsize of 4144 
((512 -F 6) * 8) which meant that we were reducing the poten¬ 
tial disk activity by a factor of 8 in exchange for a little more 
than 2 KW of memory. 

The experiment was as follows: 

1. Run each program in Basic-Plus (BAG). Basic-Plus-2 
(TSK), and Basic-Plus-2 with large recordsizes (LRS) 
12 times, recording the clock and cpu time con¬ 
sumed in each run. 

1. Run ANALYS, telling it to output to NL:. 

2. Replace BACMNT with a program that just ex¬ 
its, run BACKUP, telling it to backup one large 
account. Note that this means that the times 
presented below include the time spent on 
BACKUP and BACCON. 

3. Run DIRECT, telling it to output a /S listing of 
one large account to NL:. 

4. Run REORDR, telling it to sort one large account. 

2. Discard the lowest, and the highest times to reduce 
the chance of a stray value influencing the result. 

3. Calculate the mean times. 

The results of the experiment are: 









‘7 (for once) 
was speechless. ” 

JL. — Dave Mallery, March, 1981 issue of 
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DISKIT IS A DIRECTORY 
PROGRAM 

But DISKIT is more than a disk 
structuring utility. DISKIT’s 
Macro-11 directory program, 
DIR, displays directories 12 times 
faster than before — looking up 
files by name, extension, and date 
(with wildcards) at the incredible 
rate of 250 files/second. 

And DIR is smart. It supports 
all standard DIRECT switches 
(includingbackwards, up to 1,000 
files) with features you won’t find 
elsewhere-like password lookup, 
UFD placement, and UFD size. 

DIR even works as a diagnostic 
tool on dismounted disks, detecting 
bad directory structures and 
identifying them with comprehensive 
error messages. 

DISKIT IS AN OPEN FILES 
DISPLAY PROGRAM 

DISKIT’s Macro-11 OPEN 
program displays open files by job 
- with complete job and file statistics. 
It even has a “sleep switch’’, allow¬ 
ing you to dynamically update 
information at any desired interval. 


DISKIT LETS YOU WRITE 
YOUR OWN DISK 
HANDLING ROUTINES 

Best of all, the very same routines 
used in DISKIT are included, 
with documentation, so you can 
write your own disk handling 
routines. In minutes. 

DISKIT IS THE FIRST 
SOFTWARE TOOL KIT FOR 
COMPLETE DISK 
MANAGEMENT 

The DISKIT package provides 
all the tools and utilities you need 
to create and manage a well- 
structured disk. The entire DISKIT 
package, with extensive documenta¬ 
tion is available now for only $ 1250. 

DISKIT, Dave says, “...is 
the ‘final solution’ to structured 
disks, eliminating all of the time 
and complexity and reducing the 
job to one of a SAVRES.” 

What more could we say? 

Once again, we’ve got the answer. 
Software Techniques, Inc. 


5242 Katella Avenue, 

Los Alamitos, CA 90'720 


To tell the truth, so are we. We 
knew DISKIT would amaze RSTS 
users, but, frankly, we were 
unprepared for the response. Phone 
calls, letters, and now the RSTS 
PROFESSIONAL - all saying 
what we want you to know: 

DISKIT is a remarkable 
software tool! 

Listen to what else Dave has to 


say: 

“...using DISKIT, I created 130 
accounts and fully extended their 
centered UFDs in 3 minutes and 
40 seconds(ajob that used to take 
4 to 8 hours.)’’ 

“I then copied the full contents 
of a 300 MB RM05 equivalent to 
this new ‘well-structured’ disk in 
45 minutes, optimizing clustersize 
and contiguity in the process...’’ 

DISKIT IS A DISK 
STRUCTURING UTILITY 

As Dave discovered, DISKIT’s 
disk structuring utility, DSU, is 
fast. It also: 

• Optimizes file clustersizes 

• Places and pre-extends UFDs 

• Performs transfers between 
unlike disks 

• Saves all accounting data 

• Allows manual file placement 

• Provides full logging and 
statistics 

• Includes sophisticated 
handling and recovery 
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RSTS DEFECTOR By Joel Schwartz. M.D. 

I have a confession to make. I have defected from RSTS. 
But before you put my article down let me explain. I've 
played all the games available to me on the RSTS system so I 
went in search of new game horizons on other computers 
and here's what I found. There seems to be two basic types 
of games available. One is the Arcade type game. Space In¬ 
vaders and Astroids would be examples of this type. The 
other is the Adventure D and D type of which Adventure and 
Dungeon would be an example. The games can be found on 
51/4 floppy discs and can be run on computers that are 
named after a fruit, a household animal, a naval officer and 
one that begins and ends with a vowel. (I had to disguise 
these in order to keep my job.) If you have any trouble figur¬ 
ing them out, send a self-addressed envelope to me and I will 
send the answers. 

I want to tell you about two of the latter type games. 
The first is called ULTIMA (California Pacific Computer Co. 
by Lord British). Billed as the ultimate adventure game, in 


many ways that’s exactly what this game is. There is the 
ability to create new characters of different races (human, 
elf, hobbit, dwarf) and types (fighter, cleric, wizard, thief). 
Once formed the character can travel on land, across oceans, 
in the air, and eventually into space. Towns, castles, islands 
and dungeons are but a few of the places on the adventurers 
way. The game is filled with quests, challenges and 
monsters which test your skill and creativity. A well docu¬ 
mented manual and separate player reference card come 
with each game. I have been deliberately vague, for to be 
more specific would only spoil the game. 

The second game I enjoyed was THE PRISONER (Edu- 
Ware, Conoga Park, California). Based on the popular 
English TV program, the object of the game is to escape 
from the ISLAND where you are being held prisoner. While 
you are trying to do this the computer is trying to get you to 
reveal three digit secret code number it gives you at the be¬ 
ginning of the game and forewarns you never to reveal. 
Every psychological trick in the book is used to obtain your 
information. If you are easily frustrated, this is not the 
game for you. However, if you are... but that would be telling. 
_ _ f 


Program 

Clock 

%/BAC 

Cpu 

%/BAC 

KW(prgrm shared) 

ANALYS.BAC 

333.5 

100.0 

301.3 

100.0 

32(16-»-16) 

BACDIR.BAC 

103.0 

100.0 

14.4 

100.0 

31(15-1-16) 

DIRECT.BAC 

40.9 

100.0 

30.1 

100.0 

30(14-h16) 

REORDR.BAC 176.7 100.0 

Using the Basic-Plus run-time system 

95.7 

100.0 

30(14-1-16) 

ANALYS.TSK 

196.9 

59.0 

161.4 

53.6 

31(15-»-16) 

BACDIR.TSK 

121.9 

118.4 

10.0 

69.4 

30(14-»-16) 

DIRECr.TSK 

45.1 

110.3 

20.4 

67.8 

29(13-1-16) 

REORDR.TSK 122.0 69.0 

Using the Basic-Plus-2 run-time system 

33.8 

35.3 

29(13 -F 16) 

ANALYS.LRS 

180.4 

54.1 

160.9 

53.4 

29(21 -1-8) 

BACDIR.LRS 

24.0 

23.3 

6.6 

45.8 

30(22 -F 8) 

DIRECT.LRS 

24.1 

58.9 

20.5 

68.1 

27(19 -F 8) 

REORDR.LRS 

44.2 

25.0 

26.0 

27.2 

27(19 -F 8) 


Using the Basics resident library 

From these results we can see that a program written 
to be efficient in Basic-Plus may run faster or slower in 
Basic-Plus-2, but with a little effort, programs can run con¬ 
siderably faster. For our system, this minor modification 
reduced the clock time for BACDIR to get a directory of the 
whole system from over 12 minutes to Just over 1 minute. 
This made running BACKUP during timesharing almost 
painless. 

Based on the results of this experiment. I plan to 
modify all of the programs in the spooling and backup 
packages to use large recordsizes on virtual array file opens. 

Multi-user Tasks 

Multi-user tasks are tasks that have been task-built to 
allow the separation of read-only code from read-write code. 
For RSTS this means separating the read-only code into a 
separate resident library. This means that when a user runs 
a program. RSTS will load the resident library and the read- 
write section of the task. When a second user runs the same 
program, RSTS will Just load the read-write section of the 
task. The exact procedures to create a multi-user task have 
been published several times in several publications, and will 
not be repeated here. (See Vol 3-2 p 8. June 1981.) 

As a practical example of how multi-user tasks can 
reduce total system memory requirements, we will look at a 


real-life example: 

One of our clients is a heavy user of the spooling 
system. During the morning operator s shift, 5 print 
spoolers run almost constantly. All CUSPs are running 
in Basic-Plus-2, linked with the Basics resident library. 

SPLRUN runs in 18KW, so if we multiply these 
numbers out we get 90KW of print spoolers com¬ 
peting for memory. If we build SPLRUN as a multi-user 
task, we get a SPLRUN that runs in 3KW, with a 
15KW SPLRUN resident library. Since all 5 spoolers will 
share their 15KW read-only segment, they only require 
30KW to run all 5 spoolers at the same time. This 
saves 60KW of their total system memory re¬ 
quirements by re-task-building a single program! 

The only 'fly-in-the-ointmenf is that resident libraries 
must be loaded at specific addresses. This is a serious limita¬ 
tion to systems with small amounts of physical memory. I 
hope DEC changes this in future releases of RSTS. 

Quick Tip 

On occasion, programmers need to execute a Basic[2] 
program starting at a non-zero line number. The usual way 
to accomplish this is to switch to the Basic-Plus run-time 
system and execute an immediate mode CHAIN specifying a 
non-zero line number. If you are in a run-time system other 
than Basic-Plus, type RUN programname/PO:linenumber'. 
If you are in the Basic-Plus run-time system type RUN pro- 
gramname< LF>linenumber.' 

The reason this works is that when you execute a .RUN 
monitor call (which Basic[2] considers a CHAIN), you can 
specify a parameter word (@ FIRQB-h FQNENT) which 
Basic[2] will interpret as the line number to start execution 
at. This is the same location in FIRQB that receives the Posi¬ 
tion switch value after a file name string scan (.FSS). 

If you have any questions or suggestions for things you 
would like to see in this column, please address them to: 

Steven Edwards, Software Techniques, 

5242 Katella, Los Alamitos, CA 90720 f 
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Finally 1 a publication exclusively for dec * or 
DEC-related users, manufacturers, and consultants! 


* What is HARDCOPY? 

HARDCOPY Is a bl-monthly magazine written and edited for the community of users 
and vendors of DEC and DEC<ompatible equipment. Topics ranging from new 
peripherals to software updates give the reader a broader, more In-depth coverage 
than most all other publications. 

Who reads hardcopy? 

HARDCOPY Is exclusively directed at the DEC marketplace. Along with Its primary 
readership of end users, systems analysts, site managers, mis directors, and 
engineers hardcopy also circulates to manufacturer consultants and OEM's of 
DEC-compatible peripherals and software vendors. 

Inside hardcopy ... a magazine covering it all! 

Five HARDCOPY sections — DEC NEWS, EDITORIAL, DEC COMPATIBLES, BUSINESS 
SPOTLIGHT, SOFTWARE and VAX INFO highlight all the latest topics of interest 
concerning small, medium and large scale computers. 

Why should you subscribe? 

If you are a user, manufacturer, consultant or OEM of DEC related equipment, 
HARDCOPY will provide you with highly Informative, up-to-date news ranging from 
general Interest articles to new product announcements. 


To receive hardcopy Magazine fill out the qualification form below 
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Subscription Form 

Name_ 

Title_ 


IMPORTANT — To qualify, please answer all questions below. 
Type of DEC computer at this location: 

CPU_ Operating System_ 

Disk_ Tape _ 


Company _ 

Company Address. 

City/State/Zip_ 

Phone( )_ 

Signature _ 

Date_ 


Floppy . 
CRT_ 


Printer . 
Other_ 


Primary product or service of your firm at this location: 
End User_ 


O Check here if you wish to receive advertising Information from 
Hardcopy. 


System House _ 

Consultant _ 

Data Processing 
Software_ 


OEM (type)_ 

MFG _ 

Educator_ 

Government. 
Other_ 


is published six times per year by Seldin Publishing, Inc. One year subscription may be purchased at the 
following rates: 

United States.$16.00 

All Other Countries.$25.00 


SEND TO BOX 759 — BREA, CALIFORNIA 92621 

•DEC Is a registered trademark of Digital Equipment Corporation 


Phone (714) 632-6924 


CIRCLE 66 ON READER CARD 







































APPUGAfnilS SCALE M YOIR 
EAVOR JUriTH USDHI. 


i 

' i 


! 


I 


I 

i 


i 



! 


USERIl is a comprehensive 
applications development 
facility for the DEC RSTS 
operating environment. 
Dozens of integrated 
programs harness RSTS’s 
power for unparalleled 
productivity and performance 
in constructing on-line and 
batch application systems. 

PRODUCTIVITY... 

A MATTER OF TIME. 

More than a data manage¬ 
ment system, USER-11 
features common-function 
programs that permit 
numerous applications to be 
installed without writing a 
single line of code. Complete 
building blocks and interfaces 
are provided for those 
remaining applications 
requiring custom work. 

PERFORMANCE... 

SIMPLY INCREDIBLE. 

USER-11 combines 
advanced BASIC and 
MACRO coding techniques 
with ultra-efficient file 
accessing mechanisms to 
optimize application system 
performance. 


RELIABILITY... 

A PROVEN FACT. 

USER-II is currently 
installed on hundreds of time¬ 
sharing systems world-wide 
with a reliability record that 
users repeatedly praise. All 
software is exhaustively 
tested and benchmarked prior 
to any distribution release. 

SECURITY... 

MORE THAN RSTS. 
USER-11 incorporates a 
unique MENU system which 
flexibly and securely controls 
all processes. Secondary, 
encoded security databases 
are provided for each project. 
A special Run Time System is 
invoked to prevent accessing 
the RSTS ready state, unless 
the software developer 
desires this for the user. 

STANDARDIZATION... 

A BYPRODUCT. 

All USER-11 generated 
packages employ program¬ 
ming and documentation 
conventions which enhance 
compatibility, readability, 
and maintainability. 

ADAPTABILITY... 

NO PROBLEM. 

USER-11 programs are 
dictionary and parameter 
driven throughout. Files can 
be restructured without 
program modifications. 

CIRCLE 30 ON READER CARD 


DOCUMENTATION... 

GOOD AND PLENTIFUL. 

USER-11 features a wealth of 
easy-to-follow documen¬ 
tation. An extensive on-line 
“/HELP” facility is at 
software developer and user 
fingertips. All documentation 
is maintained and distributed 
on your system’s compatible 
media. 

TRAINING...ALL KINDS. 

USER-11 training courses are 
held frequently with instruc¬ 
tional programs to suit your 
need—beginner to expert. 

FEATURES...ON AND ON. 
USER-11 includes virtually 
every facility needed to 
quickly construct high 
performance management 
applications—nothing else is 
required. If you find this hard 
to believe or would like more 
information, contact us; we 
will furnish you with solid 
user proof! 
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North County 
Computer Services, Inc. 

2235 Meyers Ave. 

Escondido, California 92025 
(714) 745-6006, Telex: 182773 

DEC and RSTS are registered trade¬ 
marks of Digital Equipment Corporation. 

rc Copyright NCCS 
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DON’T BUBBLE — QUICK SORT 

By Neil Robertson. Management Controls Systems, Manchester. U.K. 


It is a fairly common requirement to sort an array of 
numbers or strings. If the array is small this is often done 
using a "bubble" sort, which is possibly the slowest method 
available. The automatic stacking of parameters with Basic 
Plus functions enables a compact "quick" sort to be written. 
Such a function for sorting strings is given below, and also a 
table showing CPU seconds used when sorting random eight 
byte strings using Basic Plus on an 11 /70. The string length 
is not important when using Basic Plus since the com¬ 
parison is normally resolved in the first 3 or 4 bytes, and 
only the pointers are changed. With Basic + 2 the times are 
considerably longer, since the strings themselves are moved 
rather than the pointers. 

Integer and Floating Point sorts require the string vari¬ 
ables to be changed to integer or floating point variables, 
and the function name changed. The array must of course 
be dimensioned. Only the array elements in the range given 
by the first two parameters are sorted. The third parameter 


is used to save the variable X% for use by the second recur¬ 
sive function call. This function should not be used to sort 
virtual arrays. If you must do such a thing use a bubble sort. 
Purists may not like the "WHILE” syntax but it works. 


Array size ! 

100 ! 

200 ! 

300 ! 

! 400 ! 

800 ! 

1600 

Bubble sort-CPU sec ! 

2.3 ! 

V.7 ! 

21.2 ' 

1 3B.3 ! 

144 ! 

621 

Quick sort -CPU sec ! 

0.5 ! 

1.0 ! 

1.6 ' 

' 2.2 f 

4.7 ! 

10.1 


24841) DEF» FNQSORTf ( Y1Z r Y2X , XZ ) 

' WUICK SORT STRINGS XflYlZ) TO Xi(Y2Z) 

• XZ IS A DUnnY PARAAETER - SET=0 
\ XZ«=Y1Z 

\ YZ*Y2Z 

\ Z«=Xt((Y1Z*Y2Z>/2Z) 

\ WHILE XZ<=YZ 

\ XZ = XZ + 1Z WHILE XilXZXZf 

\ YZ==YZ-1Z WHILE X»(YZ)>Z» 

\ IF XX<«YZ THEN Xlf = Xt(XZ) \ Xi < XZ ) «^Xt (YZ ) \ X«(YZ)«^X1« 

\ XZ^XZ*IZ \ YZ=YZ-1Z 

24850 NEXT 

\ Xl$=FNQSORT»<YIZ,YZ.OZ) IF YIZ<YZ 

\ Xli=FN«SORT«<XZ,Y2Z.0Z) IF XZ<Y2Z 

\ FNENO 


SYSTEMS! 


SUPERB SOFTWARE for DEC 


LEX-11 


The leader for integrated word and data 
processing in the DEC marketplace. 
Available for all DEC operating systems 
and UNIX, TSX-PLUS, for LSI-11, PDP-11 
and VAX. OEM discounts. 


RJ-11 COBOL 


Compiier. ANSI-74 compatible. Twice 
DEC’S features for half the price. Avaiia- 
ble for RT-11, RSTS/E, and TSX-PLUS. 



EEC Systems 


286 Boston Post Road 
Wayland, MA01778 


(617) 358-7781/2 
(617) 443-6376 
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TRANSPORTABLE 
SOFTWARE ON RSTS/E 
AND VAX/VMS USING 
A SUPPORT LIBRARY 
TECHNIQUE 

By Dave Froble 

Transcomm Data Systems Incorporated is an Authorized 
DIGITAL Computer Distributor specializing in business soft¬ 
ware packages. Our experience with both DEC and RSTS 
dates back to 1972, when we took delivery of one of the 
first PDP-11 /40 RSTS systems. Since that beginning, the 
company has deveioped a full line of distribution manage¬ 
ment and financial control software packages in use by 
clients in North America and abroad. 

Known as TOLAS (the Transcomm On-Line Accounting 
System), this software was initially written in BASIC-PLUS. 
When BASIC-PLUS-2 (BP2) became generally available 
several years ago. certain critical parts of the system were 
converted to take advantage of the increased program size 
and run-time efficiencies provided by the new language. 

When it became clear in 1980 that Digital would be 
placing increasing technical and marketing emphasis on the 
new 32-bit VAX line of computers. Transcomm initiated a 
study to evaiuate how best to transport TOLAS to the new 
operating environment. Two alternative strategies were 
considered. First, we could have used a compatibility mode 
technique. Although the actual conversion effort would 
have been fairly simple, the resulting software would not 
fully utilize the additional capabilities of the VAX and VMS. 
A better solution, we felt, would be to Implement our soft¬ 
ware on the VAX using VAX-11 BASIC. With this alter¬ 
native, the resulting software would take full advantage of 
the new VAX technology. 

The problems associated with maintaining two sets of 
software (one for the PDP-11 and one for the VAX) were 
also considered. It was decided to avoid these problems by 
producing a single set of software that would run on both 
machines. The solution involved creating separate support 
libraries of external subprograms for each machine. These 
libraries would provide the basis for transporting common 
application programs between the two types of systems. 

The first step in this support library technique for the 
VAX conversion was to translate all the RSTS/E programs 
into BASIC-PLUS 2. Following this step, unique support 
iibraries were created for each type of system. These ap¬ 
plication program support routines perform the functions 
that are unique either to the specific computer or to its 
operating system. In theory, the approach could be extended 
to other computer systems In the future. 

The first major problem we encountered concerned 
disk files. Disk files on the VAX are handled in a manner 
that differs greatly from the RSTS/E native files. Mainly, all 
files on the VAX are accessed using the RMS file processing 
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software, and RMS. as implemented on the VAX. provides 
excellent file handling capabilities, as contrasted with its im¬ 
plementation under RSTS/E. But since Transcomm had 
developed its data management techniques before RMS was 
planned, our software relied on RSTS/E block I/O tech¬ 
niques. VAX-11 BASIC allows block I/O simulation by open¬ 
ing a file with RMS ORGANIZATION VIRTUAL. The actual file 
organization is SEQUENTIAL with fixed length 512 byte 
records. 

The procedures that will be discussed in this article 
primarily concern the handling of disk and terminal I/O. In 
particular. 1 will discuss the opening of a Data Base File, the 
opening of a Virtual File, the opening of an ASCII Text File, 
and opening the keyboard on a non-zero channel. 

OPENING DATA BASE FILES BY SIMULATING 
RSTS/E MODE ARGUMENTS 

The opening of data files in a general application sup¬ 
port routine has been a characteristic of Transcomm soft¬ 
ware throughout our history of writing business application 
packages. In BASIC-PLUS, this was accomplished using a 
user defined function. Later, with BP2. the function was 
rewritten as a subprogram and linked into a task from an 
object library containing support subprograms. The ability 
to pass a parameter value to be used as the MODE argument 
in the OPEN statement allowed file accessing and sharing to 
be specified either before (via hard coding) or at run time. 

VAX-11 BASIC does not support MODE with it's OPEN 
statement. Instead, keywords are used to define access and 
sharing characteristics when opening a file. Since this was 
unacceptable, relative to our concept of using general sup¬ 
port routines to perform often-used and standardized opera¬ 
tions. a simulation of MODE was required. 

VAX-11 BASIC and VAX RMS did provide a possible 
solution. The RMS Data Structures FAB (File Access Block) 
and RAB (Record Access Block) are used to define file open¬ 
ing and record accessing operations. VAX-11 BASIC allows a 
USEROPEN parameter in an OPEN statement. When used, a 
FAB and a RAB are initialized and a user specified 
MACRO-32 routine is called which can modify the FAB 
and/or the RAB to specially define the file open. The FAB, 
which plays a role similar to FIRQB. is an RMS Data Block 
used to specify how a file is to be opened. The fields we 
wanted to modify are called FAC, one byte of flags used to 
specify access methods, and SHR, one byte of flags used to 
specify sharing. The RAB is a RMS data block used to control 
record operations. When VAX-11 BASIC passes control to a 
USEROPEN routine, a parameter list is passed with ad¬ 
dresses of the FAB. the RAB, and the channel on which to 
open the file. The FAB is initialized, therefore, with all data 
necessary to open the file. The RAB has minimal data at this 
time. Additional data will be stored in the RAB after comple¬ 
tion of the USEROPEN routine. 

The first part of the solution was to determine the bit 
mask values for different specifications of the ACCESS and 
ALLOW keywords. A small program opening a file and using 
a USEROPEN routine was created and executed using 
ACCESS MODIFY. WRITE, and READ, and ALLOW MODIFY. 
READ, and NONE. Our USEROPEN routine put the FAB and 


RAB values into a global PSECT (COMMON) data area and 
the values were displayed by the program following comple¬ 
tion of the OPEN statement. The following values were ob¬ 
tained: 


MODIFY 

WRITE 

READ 

NONE 


ACCESS 

15 

3 

2 

N/A 


ALLOW 

15 

N/A 

2 

32 


Note that these values are represented by external 
equivalences, and that the equivalence mnumonics can be 
declared as external constants. This technique is compatible 
with VMS programming practices. 

With this information, we modified our file open sup¬ 
port routine to set up two 8 bit masks based upon arbitrary 
codes representing different combinations of ACCESS and 
ALLOW. Refer to the subprogram FBOPEN to see those com¬ 
binations that can be used. For compatibility, a code of 1 
stood for ACCESS MODIFY, ALLOW MODIFY, the equivalent 
of update mode under RSTS/E. A code of 0 is equivalent 
with the code for ACCESS WRITE. ALLOW NONE. A long 
word common block is used to pass the two byte values to 
the USEROPEN routine. 
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<<<<<<<<<<<<<<<<<< FILR M^NAOFMFNT data FTLF OPFN >>>>>>>>>>>>>>>>>>>>> fc 


SUB FBOPFN( f'H% , FILFNAMFS , '''BF% , MO.nF% , FRROP% , FS , FT,n% (,) ) h 


CHI 

FILE.NAMFS 

CBFI 

MO.DEI 


ERRORI 

E$ 

FLDI(,) 


- CHANNEL •’Y) USE FOR T/O Ar-rTVITY fc 

- NAME OF DATA FTLF 6 

- COMPLEX BUFFER FACTOR TO USE WHEN <~0MPUTTN0 BUFFER SIZE fc 


- USEROPEN ACOESS AND ALLOW SWITTH I 


2 - 

3 - 

4 - 


ACPESS 

ACCESS 

ACCESS 

ACCESS 

ACCESS 

ACCESS 

ACCESS 

ACCESS 


MODIFY 

MODIFY 

MODIFY 

WRITE 

WRITE 

READ 

READ 

READ 


ALtX)W MODIFY 
ALLOW READ (. 
ALLOW NONE I 
ALI/W READ k 
ALLOW NONE (. 
At.LOW MODIFY 
ALLOW READ k 
ALLOW NONE k 


- ERROR CODE k 

- FILENAME k 

- ARRAY TO USE FOR FIELDING DATA k 


COPYRIGHT 1981 BY TRANSCOMM DATA SYSTEMS INCORPORATED k 

THIS PROGRAM IS THE SOLE PROPERTY OF TRANSCOMM DATA SYSTEMS k 
INC. AND MAY NOT BE COPIED IN WHOLE OR IN PART WITHOUT THE k 
EXPRESSED WRITTEN PERMISSION OF TRANSCOMM DATA SYSTEMS INC. k 




110 !>>Append <<FL:FMCOMM.B2S>> before compilinq subproqram. k 

PRINT "FMCOMM.B2S is not appended." k 
\ STOP k 


180 

200 


COMMON (UOPBN) LONG BUFF.ADDR 


ON ERROR GOTO 900 
\ ERRORI • 01 
\ E$ - FILENAMES 
\ CBFI - II 
\ X2I - (CHI<0l) 

\ CHI - ABS(CH%) 

\ FACI - 01 
\ SHRI - 01 

\ MO.DEI - 51 IF MO.DEI-01 

\ FACI - 151 IF MO.DEI - II 
OR MO.DEI - 21 
OR MO.DEI - 31 
\ FACI - 31 IF MO.DEI - 41 

OR MO.DEI - 51 
\ FACI - 21 IF MO.DEI - 61 

OR MO.DEI - 71 
OR MO.DEI - 81 


\ SHRI - 151 
\ SHRI - 21 

\ SHRI • 321 


IF MO.DEI - II 
OR MO.DEI - 61 
IF MO.DEI - 21 
OR MO.DEI - 41 
OR MO.DEI - 71 
IF MO.DEI - 31 
OR MO.DEI - 51 
OR MO.DEI - 81 


\ ERRORI - -21 IF FACI-OI OR SHRI-OI 
\ GOTO 999 IF ERRORI 


\ BUFF.ADDR - SHRI*256I ♦ FACI 


\ OPEN ES FOR INPUT AS FILE CHI, 
ORGANIZATION VIRTUAL, 
USEROPEN USEOPEN 

UNLESS ES ■ ■■ 


!>>USEROPEN communication k 
! 

I ERROR TRAPPING k 
i CLEAR ERROR FLAG k 
I SET RETURN DATA k 

! SET DEFAULT CBF k 

I SET NO ISAM FLAG k 

! SET CHANNEL VALUE k 

k 

! ACCESS FLAGS k 
I ALIXIW FLAGS k 
I RSTS/E MODE ZERO k 
k 

I ACCESS MODIFY k 

k 

k 

I ACCESS WRITE k 

k 

I ACCESS READ k 

k 

k 

k 

I ALLOW MODIFY k 

k 

I ALLOW READ k 

k 

k 

I ALLOW NONE k 

k 

k 

k 

I TEST MODE VALUE k 


I PUT FLAGS IN GLOBAL PSECT k 
k 

! OPEN DATA FILE 4 
I BLOCK 1/04 
! USEROPEN 4 
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\ RABADRC CH% ) - BUFF.ADDR 
\ CALL BUFADR 

\ BUFADR( CHI ) - BUFF.ADDR 

\ FDB{CH%,3%) - -1. 

\ PDBKCHI.SI) - -1% 

\ FDB%(CH%,9%) - -II 
\ FDBI(CHI,lOI) - 01 
\ FDBKCHI.llI) - CBFI 


! SAVE RAB ADDRESS & 


GET BUFFER ADDRESS I 
SAVE BUFFER ADDRESS 


FDBI(CHI.ZOI) 
FOR ZOI 


FNZI(ZOI^IOI) 
01 TO 71 


SET FM DATA i 


! READ FDB DATA fc 


! SET FM DATA fc 


READ FDB DATA I 


\ FDBI(CHI,21) - MO.DEI 

\ FDB(CHI,0I) - 32768.*FNZI(01) ♦ FNZI(ll) 

\ FDB(CHI,ll) - 32768.•FNZI(2I) ♦ FNZI(3I) 

\ FLDI(0l,0l) « FDBI(CHI,3I) 

\ FLDI(0I,1I) - 01 
\ PLDI(0I,2I) - 01 

\FOR ZOI « II TO FDBI(CHI,SI) 

\ Zl - 161 ♦ Z0I*16I 
\ FLDI(Z0l,0l) ■ FNZI(ZI) 

\ FLDKZOI,!!) - FNZKZI + ll) 

\ FLDKZOI,21) - FNZI(ZI-t-2l) AND 25SI 
\ Zll - FNZI(ZI-*-3l) 

\ Z2I ■ Zll AND 25SI I WRITE MASK ^ 

\ Zll - SWAPI(Zll) AND 25SI i READ MASK f. 

\ FLDKZOI,21) - FLDKZOI,21) OR SWAPKZII AND ISI) i, 

\ FLDKZOI, 21) - FLDKZOI, 21) OR SWAPK(Z2I AND 1SI)»16I) 

NEXT ZOI 4 


SET FIELD ZERO DATA fc 


READ FIELD DATA I 

LENGTH t 
OFFSET 6 
DATA TYPE k 


\ FDBKCHI,!!) - 21 IF X2I 
\ Zl - FDBI(CHI, II) t 

\ GOTO 220 UNLESS Zl-ll OR ZI-51 i 

k 

\ NUM.KEYSI - FNZ2K3I) ! 

\ KEYSKCHI,0l) • NUM.KEYSI k 

\ NUM.KEYSI - 51 IF NUM.KEYSI>5I k 

\ KEYSKCHI,1I) - CHI ! 

\ SPLITI - FNZ2K4I) ! 

\ SPLITI - 51 IF SPLITI<1I OR SPLITI>9I ! 

\ KEYSKCHI,2I) - SPLITI ! 

k 

\ KEYSKCHI,Z0l*8l-4l + ZI) - FNZ2I (Z0I*16I + 1I + ZI) 
FOR Zl » 01 TO 31 ! 

FOR ZOI - II TO NUM.KE.'SI ! 


I SET pile TYPE k 


READ NUM OF KEYS FROM KDB 


SET KEY ACTIVITY CHANNEL k 
READ SPLIT RATIO k 
DEFAULT TO 50/50 k 
SET SPLIT RATIO k 


DEF* FNZKOFFI) 

\ CALL fmrfdb;chi,offi,valuei,errori) 
\ GOTO 999 IF ERRORI 
\ FNZI ■ VALUEI 
FNEND 


>READ FDB DATA k 


DEF* FNZ2KXI) - FNZI ( FDBKCHI, 61) *2561 + XI ) 6 


>READ KDB DATA k 


900 

999 


The USEROPEN routine requires the use of several RMS 
equivalence definitions and routines. The system macros 
$FABDEF and $RABDEF are used to set up numeric values 
representing offsets and values for the respective data 
blocks. For example, the offset from the beginning of the 
FAB to the access byte is represented by FAB$B—FAC. 
(Chapter 4. in the VAX-11 RMS reference manual, contains 
information on the FAB while RAB information is contained 
in Chapter 5.) Processing of the USEROPEN includes saving 
the FAB and RAB addresses, setting the ACCESS and SHARE 
bytes, returning the RAB address in the global PSECTT (for 
possible use later in the program), issuing the RMS $OPEN 
call using the FAB, and issuing the RMS $CONNECT call us¬ 
ing the RAB. Upon exit of the routine, execution of the 
VAX-11 BASIC OPEN statement continues. 

• TITI.E USEOPEN - UsproDPf) routine for BASf^ ooen 

.inENT "Vl-Ol" 


; ropYRIGHT 1981 BY TRA»J<;roHM DATA SYSTEM.*? INrORPORATED 

; this PROr.RAM TS thr SOLE PROPERTY OF traHSOOHM OATA SVSTEMS 

J INF. AND MAY NOT BE FOPIEn IN WHOI.F OR IN PART MITHOITt the 

; EXPRE.SSED WRITTEN PERMISSION OF traN<:F0MM DATA SYSTEMS INF, 


; Abstract: 

; 

: This routine can be used with i VAX-ll BA.STF open statement 

; to allow parameterization of the ACCESS and ALt/>W clauses. 

; A global PSECT is set up for communication with the calling 

; program since the three arguments passed to a USEROPEN 

; routine are controlled hv BASTf. Thin PSEFt contains one 

; longword that is used to pass hit masks for the access 

; and share fields in the fab, and to pass back the address 

; of the RAB to the calling routine. 

; Two code PSECTs are set up: 

I 

! USEOPEN is the PSECT that sets the FAB fields, opens and 

; connects the channel, and returns the RAB address. 

; BUFADR is a PSECT to get the data buffer address from the 

• RAB field UBF. 


Author; 

Dave Froble, Transcomm Data Systems, Pittsburgh, Pa. 

Access field values: (ACCESS) 

MODIFY - 15 
WRITE - 3 
READ - 2 

Share field values: (ALLOW) 

MODIFY - 15 
READ - 2 
NONE - 32 


j Define FAB and RAB symbols 

SFABDFF ; FAB symbols 

SRABDEF ; RAB symbols 

> Define global psect, used for oassing data to/from routine 
j 

.PSECT UOPEN,PIC,OVR,REL,GBL,SHR,NOEXE,RD,WRT,LONG 
PDAT: .LONG ; RAB address 


; Code part of routine 
I 

.PSECT SCODE,PIC,CON,REL, IX'L,SHR,EXE,RD,NOWRT,LONG 

.ENTRY USEOPEN,*M<R2,R3> ; Save registers that will be used 

; 

t Get FAB and RAB addresses 

; 

MOVE 4(AP),B2 ; Address of FAB 

MOVL 8(AP),R3 ; Address of RAB 

j 

; Set FAB access and shareing flag bytes 

MOVB PDAT, FABSB_FAC(R2) : Set access bvte 

MOVB PDAT+l, FABSB_Shr(r 2) ; Set share byte 

; Return RAB address 

MOVL R3,PDAT 

I 

; Set RAB fields 


; Return RAB address 


; no the SRAB routine here 


Open the file here 


SOPEN FAB=fl4(AP) 
BLBC R0,10$ 
SCONNECT RAB-R8(AP) 


Return here 


; Open file using FAB 
; Test for error 
; Connect to file 


0 $: 


RET 


Return with RO containing status 


Routine BUFADR - get data buffer address from RAB 

. PSECT SFODE , P IC , FON , REL, L''L, SHR , EXE , RD, NOWRT, r,ONF. 

.ENTRY BUFADR, *M<-R 3 > ; Save registers that will he used 


MOVL PDAT,R3 

MOVL RABSL_nBF(R3),PnAT 

PET 


RAB address 

Oet buffer add'^ess 

none 


A second entry point has been included in the 
USEOPEN.MAR subprogram. The entry point BUFADR is 
used to obtain the address of the data buffer after the OPEN 
statement has completed. It cannot be obtained during ex¬ 
ecution of the USEOPEN section of the code, since the buffer 
is not allocated until after the USEROPEN routine returns 
control to the OPEN statement. 


OPENING BLOCK I/O FILES: 

A Block I/O File under VMS and VAX-11 BASIC is an 
RMS ORGANIZATION VIRTUAL file. This file may be used for 
virtural arrays or to simulate RSTS/E block I/O. The routine 
developed for this purpose was a by-product of the research 
to develop the data file open routine previously discussed. 

An argument to specify either the creation of a new 
file, or the opening of an existing file, is included in the argu¬ 
ment list of this routine. Based upon this flag, the routine 
conditionally executes one of two OPEN statements. With 
this routine, consequently, simulation of the RSTS/E mode 
features are available on the VAX. 


100 ) 


<<<<<<<<<< OPEN AN RMS VIRTUAL 


PILE >>>>>: 


SUB VMOPEN( FILE.NAMES , CHI , MO.DEI , StaTI , ERRORI ) k 


FILE.NAMES 
CHI 

MO.DEI 


.STATI 


ERRORI 


- FILENAME OF FILE TO OPEN k 

- CHANNEL TO USE IN OPEN k 

- USEROPEN ACCESS AND ALLOW SWITCH k 

1 - ACCESS MODIFY ALLOW 

2 - ACCESS MODIFY ALLOW 

3 - ACCESS MODIFY ALLOW 

4 - ACCESS WRITE ALLOW 

5 - ACCESS WRITE ALLOW 

6 - ACCESS READ ALLOW 

7 - ACCESS READ ALLOW 

8 - ACCESS READ ALLOW 

- FREATE OR OPEN SWITCH k 

1 - CREATE A NEW FILE k 

2 - OPEN AN EXISTING FILE 

- RETURN ERROR FLAG k 


MODIFY 
READ k 
NONE k 
READ k 
NONE k 
MODIFY 
READ k 
NONE k 


>>> k 
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<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
COPYRIGHT 1981 BY TRANSCOMM DATA SYSTEMS INCORPORATED fc 

THIS PROGRAM IS THE SOLE PROPERTY OF TRANSCOMM DATA SYSTEMS k 
INC. AND MAY NOT BE COPIED IN WHOLE OR IN PART WITHOUT THE & 
EXPRESSED WRITTEN PERMISSION OF traNSCOMM DATA SYSTEMS INC. k 


COMMON (FLGS) LONG FLAG 

ON ERROR GOTO 900 
\ ERROR% - 0% 

\ FAC% ■ 0% 

\ SHR% - 0% 

\ GOTO 810 UNLESS STAT%-1% OR STAT%-2% 
\ GOTO 820 IF FILE.NAMES - •" 

\ GOTO 830 IF CH%<1% OR CH%>99% 

\ GOTO 840 IF BUFSIZ(CH%) > 0% 


1>>USER0PEN COMMUNICATION k 
I 

! ERROR TRAPPING k 
! CLEAR ERROR FLAG k 
I CLEAR ACCESS FLAG k 
! CLEAR SHARE FLAG b 

k 

! TEST 'STAT%' k 
I TEST FOR A FILENAME k 
! TEST CHANNEL VALUE k 
! TEST FOR CHANNEL IN USE k 


\ FAC% - 15% 

\ FAC% - 3% 

\ FAC% - 2% 

\ SHR% - 15% 
\ SHR% > 2% 

\ SHR% - 32% 


MO.DE% - 1% 
MO.DE% - 2% 
MO.DE% « 3% 
MO.DE% - 4% 
MO.DE% - 5% 
MO.DE% - 6% 
MO.DE% - 7% 
MO.DE% - 8% 

MO.DE% - 1% 
MO.DE% - 6% 
MO.DE% - 2% 
MO.DE% - 4% 
MO.DE% • 7% 
MO.DE% - 3% 
MO.DE% - 5% 
MO.OE% - 8% 


\ ERROR% ■ -2% IF FAC%-0% OR SHR%»0% 
\ GOTO 999 IF ERROR% 


\ FLAG - SHR%*256% ♦ FAC% 


I ACCESS MODIFY k 


! ACCESS WRITE k 
k 

! ACCESS READ k 


I ALLOW MODIFY k 

k 

I ALLOW READ k 


I ALLOW NONE k 


! INSURE VALID MODE k 


! SET FLAG WORD k 


\ OPEN FILE.NAMES FOR OUTPUT AS FILE CH%, 

ORGANIZATION VIRTUAL, 

USEROPEN VFCREATE 

IF STAT% - 1% 

\ OPEN FILE.NAMES FOR INPUT AS PILE CH%, 

ORGANIZATION VIRTUAL, k 

USEROPEN FOPEN k 

IF STAT% - 2% k 

\ GOTO 999 k 

! 

PRINT "INVALID 'STAT%' VALUE"; STAT%; "IN VMOPEN" k 
\ STOP 
\ GOTO 999 


! CREATE A FILE k 


! OPEN EXI.STING FILE k 


TEST STAT VALUE k 


PRINT "INVALID FILENAME IN VMOPEN" 
\ STOP 
\ GOTO 999 


! NO FILENAME k 


830 PRINT "INVALID CHANNEL"; CH%; "IN VMOPEN" ! BAD CHANNEL k 

\ STOP k 

\ GOTO 999 k 

840 PRINT "CHANNEL"; CH%; "IS ALREADY OPEN IN VMOPEN" k 

\ STOP ! CHANNEL IN USE k 

\ GOTO 999 k 


900 ERROR% » ERR 

\ RESUME 999 


999 SUBEND 


! ALL ERRORS k 


.TITLE FOPEN - Useropen routine for BASIC open 
•TDENT "Vl-01" 


;++ 

. ***************************************************************** 

; COPYRIGHT 1981 BY TRANSCOMM DATA SYSTEMS INCORPORATED 

• THIS PROGRAM IS THE SOLE PROPERTY OF traNSCOMM DATA SYSTEMS 

; INC. AND MAY NOT BE COPIED IN WHOLE OR IN PART WITHOUT THE 

; EXPRESSED WRITTEN PERMISSION OF traNSCOMM DATA SYSTEMS INC. 

***************************************************************** 

; Abstract: 

; This routine can be used with a VAX-11 BASIC open statement 

; to allow modification of the FAB and the RAB fields. In 

; particular there will be parameterization of the ACCESS 

; and ALLOW clauses. 

; A global PSECT is set up for communication with the calling 

; program since the three arguments passed to a USEROPEN 

; routine are controlled by BASIC. This PSECT contains four 

; bytes. Two are used to pass bit masks for the access 

; and share fields in the FAB. Bit 0 of the third byte is 

j a flag to set access APPEND. 

; Author: 

; 

; Dave Froble, Transcomm Data Systems, Pittsburgh, Pa. 

; 

; Access field values: Byte 0 - (ACCESS) 

; MODIFY - 15 

; WRITE - 3 

j READ - 2 

; Share field values: Byte 1 - (ALLOW) 

; 

; MODIFY - 15 

; READ - 2 

; NONE - 32 

; Append mode: Byte 2 - Bit 0 


RSTS/E ON VAX 
ROSS/V 

(RSTS/E Operating System Simulator for VAX) 


ROSS/V is a software package, written in 
VAX-11 MACRO, which provides a RSTS/E 
monitor environment for programs running in 
PDP-11 compatibility mode on DEC’S VAX-11. 

ROSS/V supports; 

■ The BASIC-PLUS interactive environment 

■ Concurrent use of multiple run-time systems 

■ Update mode (multi-user read/write access to 
shared files,) 

■ CCL (Concise Command Language) commands 

■ An extensive subset of RSTS/E monitor calls 


ROSS/V runs under VMS and interfaces to pro¬ 
grams and run-time systems at the RSTS/E 
monitor call level. ROSS/V makes it possible for 
DEC PDP-11 RSTS/E users to move many of 
their applications directly to the VAX with little 
or no modification and to continue program 
development on the VAX in the uniquely hospit¬ 
able RSTS/E environment. Most BASIC-PLUS 
programs will run under an unmodified 
BASIC-PLUS run-time system. 

RSTS, PDP-11, VAX-11, and DEC are trademarks of Digital Equipment Corporation 


ROSS/V is available from: 


(Eastern U.S.) 

Evans Griffiths & Hart, Inc. 

55 Waltham Street 
Lexington, Massachusetts 02173 
(617) 861-0670 


(Central U.S.) 

Interactive Information Systems, Inc. 

10 Knollcrest Drive 
Cincinnati, Ohio 45237 
(513) 761-0132 

CIRCLE 67 ON READER CARD 


(Western U.S.) 

Online Data Processing, Inc. 

N. 637 Hamilton 
Spokane, Washington 99202 
(509) 484-3400 
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; Define FAB and RAB symbols 

$FABDEF j FAB symbols 

$RABDEF ; BAB symbols 

; Define global psect, used for passing data to/from routine 

.PSECT FLGS, PIC,OVR,REL,GBL,SHR,NOEXE,RD,WRT,LONG 
FLAG; .LONG ; Option flags 


Code part of routine 

.PSECT $CODE,PIC,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 

.ENTRY FOPEN,"M<R2,R3> ; Save registers that will be used 


; Get FAB and RAB addresses 

; 

MOVL 4(AP),R2 
MOVL 8(AP),R3 


Address of FAB 
Address of RAB 


Set FAB access and shareing flag bytes 

MOVE FLAG, FAB$B_FAC(R2) 
MOVE FLAG+1, FAE$E_SHR{R2) 


; Set EOF flag in RAE field ROP 

EITE #l,FLAG+2 ; 

EEQLU 10$ ; 

EISL2 #RAE$M_EOF,RAE$L_ROP(R3); 

; Open the file here 

10$; $OPEN FAE=@4(AP) ; 

ELEC R0,20$ ; 

$CONNECT RAE=@8(AP) ; 


; Return here 


Set access byte 
Set share byte 


Test flag byte 2, bit 0 
Skip if append flag is not set 
Set EOF flag 


Open file using FAE 
■^est for error 
Connect to file 


20 $; 


RET 


Return with RO containing status 


OPENING ASCII TEXT FILES: 

An ASCII Text File under VMS is an RMS SEQUENTIAL 
FILE with variable length records and carriage return record 
attributes. There are two important considerations for pro¬ 
grammers with a RSTS/E background when using these 
files. 

First, a maximum record size must be specified to pre¬ 
vent line overflow. A line longer than the maximum will be 
split into two or more records. The carriage returns are not 
included in sequential records but, rather, inserted when the 
record is printed. This effect is similar to setting a terminal’s 
width to some small number and experiencing wrap-around. 

The second consideration is line termination characters. 
A line feed will not act as a terminator but will be included in 
the record as a character. A string of line feeds spacing 
down to a print line can cause the record to overflow. The 
technique we have successfully used is to print one space for 
each line to be skipped. 

The following routine is used to open an output text 
file. The same arguments can be used in a RSTS/E version to 
enhance transportability. 


.END 

.TITLE VFCREATE - Useropen routine for BASIC open 
.IDENT "Vl-01" 

;+ + 

. ***************************************************************** 

! COPYRIGHT 1981 BY TRANSCOMM DATA SYSTEMS INCORPORATED 

J THIS PROGRAM IS THE SOLE PROPERTY OF TRANSCOMM DATA SYSTEMS 

; INC. AND MAY NOT BE COPIED IN WHOLE OR IN PART WITHOO'*’ '’’HE 

; EXPRESSED WRITTEN PERMISSION OF TRANSCOMM DATA SYSTEMS INC. 

. ***************************************************************** 

; Abstract; 

; This routine can be used with a VAX-11 BASIC open statement 

; to allow parameterization of the ACCESS and ALLOW clauses. 

; A global PSECT is set up for communication with the calling 

; program since the three arguments passed to a USEROPEN 

; routine are controlled by BASIC. This PSECT contains one 

; longword that is used to pass bit masks for the access 

; and share fields in the FAB. 

; Author; 

; Dave Froble, Transcomm Data System^, Pittsburgh, Pa. 

; 

; Access field values; (ACCESS) 

• MODIFY - 15 

; WRITE - 3 

; READ - 2 

; 

; Share field values; (ALLOW) 

S MODIFY - 15 

; READ - 2 

; NONE - 32 


; Define FAB symbols 

; 

$FABDEF j FAB symbols 

; 

; Define global psect, used for passing data to/from routine 

.PSECT FLGS,PIC,OVR,REL,GBL,SHR,NOEXE,RD,WRT,LONG 
FLAG; .LONG ; Option flags 


; Code part of routine 


.PSECT $CODE,PIC,CON,REL,LCL,SHR,EXE,RD, NOWRT ,LONG 

.ENTRY VFCREATE,''M<R2> ; Save registers that will be used 

; Get FAB address 


MOVL 4(AP),R2 


; Address of FAB 


; Set FAB access and shareing flag bytes 

MOVB FLAG, FAB$B_FAC(R2) ; 

MOVB FLAG+1, FAB$B_SHR(R2) ; 

; Create the file here 

$CREATE FAB=@4(AP) ; 

BLBC R0,10$ ; 

$CONNECT RAB=@8(AP) ; 

; 

; Return here 


Set access byte 
Set share byte 


Create file using FAB 
Test for error 
Connect to file 


RET 


Return with RO containing status 
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<<<<<<<<< OPEN ASCTT TEXT FILES >>>>>>>>>> & 


SUB FAOPEN( CH% , FILE.NAME$ , FLAG% , R.SZ% , ERROR% ) 6 


CH% 

FILE,NAMES 
FLAG% 


R.SZ% 

ERROR% 


- CHANNEL ON WHICH TO OPEN FILE fc 

- NAME OF FILE TO OPEN OR CREATE & 

- OPTION FLAGS & 

1 - OPEN FOR INPUT t. 

2 - OPEN FOR OUTPUT i. 

4 - OPEN APPEND MODE & 

8 - OPEN READ ONLY & 

- MAXIMUM SIZE OF SEQUENTIAL RECORDS 6 

- ERROR FLAG & 




COPYRIGHT 1981 BY TRANSCOMM DATA SYSTEMS INCORPORATED 6 

THIS PROGRAM IS THE SOLE PROPERTY OP TRANSCOMM DATA SYSTEMS i 
INC, AND MAY NOT BE COPIED IN WHOLE OR IN PART WITHOUT THE S, 
EXPRESSED WRITTEN PERMISSION OF TRANSCOMM DATA SYSTEMS INC, i 

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> & 


COMMON (FLGS) WORD CWl, CW2 

ON ERROR GOTO 900 

! 

! 

! 

USEROPEN COMMUNICATION t 

TRAP ERRORS i 

\ 

ERROR% >0% 

! 

CLEAR ERROR FLAG & 

\ 

FAC% - 3% 

! 

READ/WRITE i 

\ 

PAC% - 2% IF FLAG% AND 8% 

! 

READ ONLY (. 

\ 

SHR% - 32% 

! 

ALLOW NONE i 

\ 

SHR% - 2% IF FAC%-2% 

! 

ALLOW READ IF READ ONLY 6 

\ 

APP% - 0% 

! 

NO APPEND MODE i 

\ 

APP% - 1% UNLESS FAC%-2% 

! 

APPEND MODE UNLESS READING 

\ 

CWl - SHRI * 256% + FAC% 

! 

GLOBAL BYTES 0-1 i 

\ 

CW2 » APP% 

! 

GLOBAL BYTE 3 k 

\ 

REC,SIZ% - R,SZ% 

! 

SET RECORDSIZE ( 

\ 

REC,SIZ% - 132% IF R,SZ% < 1% 

1 

SET DEFAULT - 132 4 

\ 

GOTO 230 IF FLAG% AND 2% 

! 

OPEN FOR OUTPUT k 


220 


230 


900 

910 


990 


999 


OPEN FILE,NAMES FOR INPUT AS FILE CH%, 
ORGANIZATION SEQUENTIAL VARIABLE, 
USEROPEN FOPEN 

\ GOTO 999 


OPEN FILE,NAMES FOR OUTPUT AS FILE CH%, 
ORGANIZATION SEQUENTIAL VARIABLE, 
ACCESS WRITE, 

ALLOW NONE, 

RECORDSIZE REC,SIZ% 

\ GOTO 999 


OPEN FOR INPUT i 


OPEN FOR OUTPUT fc 


RESUME 230 IF (ERL-220% AND 


ERROR% « ERR 
\ RESUME 999 


SUBEND 


ERR-5%) UNLESS (FLAG% AND 1%) i 

I FILE NOT FOUND & 

• OPEN FOR OUTPUT (, 

! UNLESS 'INPUT' SPECIFIED fc 


OPENING THE KEYBOARD: 

The following subprogram is self documenting. The 
mode argument is used only in a RSTS/E version of the 
routine. 
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SUB KBOPEN' KB% , KB.MODEI l k 
k 

! KB% - CHANNEL ON WHICH OPEN “THE KEYBOARD k 

! KB.MODE! - OPEN MODE , NO^ USED ON “HIE VAX k 

k 

: DISCUSSION: k 

k 

! IF THE PROCESS IS RUNNING FROM A -TERMINAL, THEN IT IS k 

! DESIRED TO OPEN THE 'TERMINAL ON A NON-ZERO CHANNEL TO k 

! AVOID THE '? ' DISPLAYFn i^EN DOING KB INPUT ON CHANNEL k 

! ZERO IN THE BASIC LANGUAGE. HOWEVER, A DETACHED JOB k 

! GETS IT'S INPUT FROM ' BUT PRINTS TO 'SYSSOUTPUT'. k 

! THIS ONLY WORKS IF USING CHANNEL ZERO. SINCE WE ARE NOT ( 

I OVERLY CONCERNED WITH THE FORMAT OF THE LOGFII.E OP A fc 

I BATCH JOB RUNNING A REPORT, WE CAN SKIP THE OPEN AND fc 

! SET THE I/O CHANNEL TO ZERO IF NOT RUNNING FROM A fc 

! TERMINAL. THE TERMINAL NAME WILL NOT BE <OPAO:> OR <TT??;> fc 

! IF NOT RUNNING FROM A TERMINAL, fc 



! COPYRIGHT 1981 BY TRANSCOMM DATA SYSTEMS INCORPORATED fc 

fc 


J THIS PROGRAM IS THE SOLE PROPERTY OF TRANSCOMM DATA SYSTEMS fc 

! INC. AND MAY NOT BE COPIED IN WHOLE OR IN PAR*^ WITHOUT THE fc 

! EXPRESSED WRITTEN PERMISSION OF TRANSCOMM DATA SYSTEMS INC. fc 

fc 

!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> fc 
! 

300 CALL SSTERMNAM( KBS ) I GET terminal NAME fc 

\ GOTO 310 IF LEFT(KBS,2%) « "TT" ! TEST FOR TERMINAL fc 

\ GOTO 310 IF LEFT(KB$,2%) « *OP" I TEST FOR CONSOLE fc 

\ KB% - 0% ! USE CHANNEL ZERO fc 


\ GOTO 999 fc 

310 OPEN ■TT:* AS FILE KB» ! OPEN TERMINAL ON CHANNEL fc 

fc 

999 SUBEND 

Using techniques iike those described above. 
Transcomm's existing RSTS/E software has now been made 
available to operate on the VAX. The program routines 
presented in this article are solutions which Transcomm has 
implemented to perform operations in VAX/VMS that can¬ 
not be done using RSTS/E techniques. Any coding examples 
may be used by the reader for his own purposes. No respon¬ 
sibility for the programs can be assumed by Transcomm. 
Further, the disclaimer must be made that the author does 
not normally write assembly language routines. Construc¬ 
tive criticisms and suggestions are welcomed by the author 
at (412) 963-6770. ® 


BUILDING A BORN-AGAIN 40 
Another Case Study—Continued 

By Dave Mallery 

In our last installment, we had an 
11 /AO CPU with memory management and 
EIS in place, happily running a toggled in 
memory diagnostic in 128KW of CDC MOS 
parity memory plugged into a big 9 slot 
ABLE backplane. The novelty of a successful 
memory diagnostic wears off after a few 
passes, and one is left yearning for 
something more in life. 

In this case, the next event was a tape 
drive from innovative technology. It’s a dual 
density 45 IPS model, sold by CDC. The con¬ 
troller is a hex high TU10 emulatator and a 
quad high 1600 peg board made by Emulex. 
You switch density on the drive, not in the 
program. To install the hex board, all you 
have to do is remove the NPG jumper on the 
backplane. This is a jumper between CA1 
and CBl whose absence allows the device in 
this slot to do DMA transfers to and from 
memory. With a DEC backplane you need a 
searchlight and a magnifying glass to find 
the jumper, with ABLE, the jumpers are 


brought out to two terminals and are the 
only wire-wraps on the backplane. 

With the tape in place, and the addition 
of an ABLE Emuloader bootstrap, our 
diagnostic ability took a giant step. Now we 
could discover all we didn’t know about 
diagnostic running. We got an emuloader 
because the ancient bootstrap shipped with 
the 40 was only able to deal with RPl 1 con¬ 
trollers (RP02 etc) and not with the more re¬ 
cent RM type controllers we planned. The 
emuloader is a neat little card that replaces 
the Unibus terminator and contains a ROM 
full of bootstrap and diagnostic, complete 
with a nifty ODT that speeds up the process 
of toggling in. 

Now we were ready for a DISC. We 
couldn’t resist the Fujitsu Winchester of¬ 
fered by Systems Industries —160 MB 
emulating two RM02’s. Ours has the 9400 
controller—later versions have a single 
board unit. Close inspection of this unit will 
reveal the deep trouble U.S. manufacturers 
are in. It was soon installed and spinning, 
but no cigar. We probably had the first pro¬ 
duction unit ever shipped, so the installation 
documents were not up to snuff. The prob¬ 
lem was that the diagnostic could not deter¬ 


mine what type of drive was out there. Now 
this is handled by setting a value into a 
register on a drive-interface card. The value 
was wrong we found out what it should be 
in memory from the diagnostic document 
but not the switch settings to achieve it. 
What followed was an hour of: 

WHILE MEMORY.VALUE% < > VALUE.IN.BOOK% 

a) change a switch 

b) reset the controller 

c) examine memory 

d) groan 

e) next 

At last, a value not exactly equal, but 
close enough to satisfy the diagnostic. Up 
she comes. 

The final addition was on ABLE DH/ 
DM. This single board wonder is a far cry 
from the 9-slot DH11-AD it replaces. In fact, 
it’s faster in that it does word DMA s rather 
than byte transfers. 

Some more morals: 

1) It’s possible to assemble a RSTS engine 
out of foreign’ parts that will perform 
amazingly well for a small investment. 

2) Old 11 /40’s never die, they just get 

new peripherals. ^ 


LETTERS to the RSTS Pro ... 

. .. continued from page 6 
PHOTO CONTEST 

DO YOU REMEMBER THIS? 

(Photo contest, RSTS Professional, V’ol. 3, U2, p.93.) 

Photo contests appear in the RSTS Professional occa¬ 
sionally and readers have until publication of the next 
issue to submit their answers. H e may. from time to time, 
limit the number of correct answers eligible to receive 
prizes. 



I believe the garbage can is for delivering large reports 
(too heavy for one person) from office to office. This is 
especially useful if it is necessary to carry reports from one 
building to another in bad weather, which is more often 
than not the case here at Plymouth State. 

Jon M. Graton, Programmer Analyst 
Plymouth State College 
P.S. Just in case . . . I take a medium. 

We'll put a medium aside for you, Jon. ... Just in case 
you’re right next time. 

My name is Brian Bates and I work for Plymouth State 
College, in Plymouth, New Hampshire, as a computer 
operator. I believe that I have the answer to your little 
contest. 1 would like to first tell you about our system. 

We run a digital PDP 11 70, with two R P06 disk drives 
and two line printers, one is the one you have in the picture 
for the contest, an I.P05 with the top pulled off to cut 
down on the number of paper jams. I would say that there 
are a number of reasons for the garbage can. Since we have 
two air conditioners this causes a tremendous current of 
air which does not allow the paper to stack right. It seemed 
rather coincidental that your contest came when it did, we 
have recently invested in a garbage can to allow the paper 
to fold correctly, since it is a pain to constantly have to go 
into the machine room to fix the paper. 


I also think that if you have large reports which are 
spooling out it makes it much simpler to handle them. 

Maybe it’s just a way of telling the users it's all a bunch 
of garbage anyway! 

Sincerely, Brian Edward Bates 
Plymouth State College 
H’e're glad the crowd at Plymouth State has found 
answers to their stacking and handling problems. Sorry no 
one has found an answer to our contest. Later. Brian. 

I believe the trash can in the picture is to help the paper 
stack correctly. This is probably due to a static electricity 
problem or maybe the wire basket that comes with the 
I.P05 is too small. 

David Corbishley 
Laurel, Maryland 

David, interesting — but not correct. 

A SSH LR: So one got it!.' The installation is a pari- 
mutual betting system (race track). If all goes well (and it 
usually does), the in formation on pool totals and wagers is 
not needed, but if the two redundant computers fail they 
need the hard copy to manually calculate payoffs! We 
think that there must be a better way that /night save a few 
trees from heco/ni/ig paper. Can you think of .some! ^ 
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Using Sort-11 from Basic Plus-2 
on RSTS/E Version 7.0 

By Ron D. Troy 


According to dec manuals, it is possible to use Sort-11 
via the use of call statements or their equivalent from 
COBOL, Fortran, or Macro-11. This use of Sort-11 from Basic 
has not previously been documented by DEC, but can be 
done without difficulty. Using Sort-11 in your own Basic 
program negates the need to run $Sort directly or with an 
indirect command file. It allows one to use nearly any type 
of file structure, to run Sort within your program (invaluable 
in an on-line mode), and to customize the sort process to 
your own needs for the greatest efficiency possible. It also 
allows you to chain to a sort and then have the sort program 
chain back when finished. One could use a customized sort 
program or a sophisticated sort program for all sorting with 
the parameters passed via core common. This chain ability is 
available with other sorts (ex. FS0RT3) and is now available 
with DEC'S Sort-11. The sort can also be included as part of a 
multiple part task. Sort may not be as fast as some other 
sort packages, but it may be much more convenient and 
reliable. 

Enclosed is an operational sample program for using 
the sort via call statements. The sequence of the calls, the 
arguments passed to and from the sort modules, setting up 
of a single 6 byte key and manipulating it are all clearly 
shown and explained. The sample program is set up to sort a 
30 byte RMS sequential record containing a 6 byte alpha¬ 
numeric key. For test purposes a 10000 record file was set 
up. using any method available to speed up the sort. The 
sort work-area size was set as large as possible, and the 
number of sort work-files and buffers per work file were 
manipulated to achieve the minimum sort time. (On a PDF 
11 /44 with 1 RPO-6 and 256k words core, the minimum 
time achieved was 1 minute, 50 seconds.) For demonstra¬ 
tion purposes, the example given is of a full record sort, but 
tag (key) sorts are also possible. For large records, a tag sort 
would probably be faster then a full record sort. For more in¬ 
formation on achieving maximum efficiency, see the Sort-11 
manual. 

The sample shown does not show the use of multiple 
keys, or descending sorts. To sort by multiple keys, append 
to your work area from left to right the various keys, in the 
order of their importance (the most important first). Then 
flip the entire key and set the address' variable name to 
start at the beginning of the last word in the key. Note that 
the length of the entire key must be even, or a Sort error will 
occur. To cause a descending sort on any one key, use the 
change statement to create an array, subtract the value of 
A(l) from the value 255, and change the array back to a 
string. Then, append that key to its proper position in the 
complete key. The individual key will be given a descending 
sort. Note that all work on the key must be done in an area 
separate from the area where the record is stored. 


The Sort Sequence 

The first action for a sort is to open a null buffer and 
map out the various work areas, and call arguments. All 
arguments. All arguments used by the various call state¬ 
ments must be mapped out, including the integer variables. 
The various variables must then be set or cleared (ex. 
IWKSIZ% = 24000% as the sort work-area size). The input 
file is then opened and mapped out. The first call — RSORT, 
is used to initialize the sort. The call, as in other calls to sort, 
must be a "CALL BY REF (argi, arg2, etc)." Passed in this 
first call are a variable for error codes to be returned (used in 
all calls), the keysize — which must be even and positive, 
maximum record size (variable length records can be 
sorted), key address (actually the last word of the key), sort 
work-area name, sort work-area size (as large as possible), 
the number of work files (> 3 and < 8 — try varying for 
greater sort speed), the number of buffers open for each file 
— also try varying this variable). An error code of 0 returned 
by the sort shows that it was properly initialized. 

The second major action is to read the file records and 
pass them to Sort. The loop ends when end of file is reached. 
All keys are appended into one contiguous work area. The 
entire key is then flipped, and is now ready to be sorted. 
This can easily be done using the Change' statement, a 'For- 
Next' loop, and another Change' statement as shown in the 
sample program. The call statement here has as arguments 
the error-code integer variable, the size of the current 
record, (allowing for variable length records), and the name 
of the area containing the record. Again, an error code of 'O' 
signifies proper operation. 

The third action is the merge. All that is passed here is 
the error-code variable. Sort will return control when the 
merge is complete. 

The fourth action is the return of the sorted records in 
order from Sort. First, the input file is closed, the output file 
opened and mapped out. The return loop has a call and a put 
to the output file. The call uses the error-code variable, the 
record size — returned by Sort, and the output record. If an 
error-code < 0 is returned, then all records have been 
returned, while a 0 indicates normal operation. 

The fifth, and final operation, is to close out the sort. 
The only argument used is the error-code variable. The out¬ 
put file should then be closed, and the sort is then complete. 

All calls should be done exactly as shown in the sample 
program. Sort will return its own error codes or RMS error 
codes if an error occurs. These error codes are listed in the 
PDP-11 Sort Reference Manual. The manual also describes 
the sort sequences and the key manipulation — but not for 
Basic. The individual words are not reversed as described in 
the manual: rather the entire key is reversed. The manual 
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also has information on sort efficiency, but this information 
may be inaccurate. An SPR has been submitted concerning 
the errors or deficiencies in the manual. Note that use of the 
above routines is not officially supported yet by DEC, al¬ 
though it is reasonable to assume that such support would 
soon be forthcoming. Also, it should be noted that 
SORTS.OBJ’ and SIORMS.OBJ’ must be present on the 
system and in the account that the task build is performed. 
The build statement is “BUILD PROGNAME, SORTS, 
SIORMS/SEQ ” (the SEQ for the BMS sequential files used 
here). SORTS, and SIORMS contain all the required object 
modules. For further information, read Chapter 5 of the Sort 
manual. 

The use of Sort as described above is a convenient 
method for easy and simple inline sorting of RMS or most 
other types of files. Unlike some other sorts, it is not 
necessary to use header records, to know how many records 
are being sorted, or to otherwise manipulate your file to 
make it acceptable to a sort, nor is it necessary to run the 
sort directly or through an indirect command file. You can 
now adapt the sort to your file, and set it up to run as effi¬ 
ciently as possible for your file. You can also set up a com¬ 
mon sort program that will read nearly any type of file 
without problems. This is something that few, if any, other 
sort packages are likely to offer for RSTS/E and Basic 
Plus-2. It also reduces the need to buy an non-Dec sort 
package that might not work under future versions of 
RSTS/E. 


4000 IMODULE FOR CALLING SORT-11. THIS hODULE CALLS THE I 

!VARIOUS MODULES REQUIRED FOR A SORT AND INCORPORATES & 
!THE TYPE OF LOGIC DESCRIBED IN THE PDP-11 SORT MANUAL. % 
!THE ADDRESSES CALLED FOR BY THE MODULES MUST BE ON i 

•WORD BOUNDARIES <1ST BYTE OF MAPPED AREA. 3RD. ETC). % 
'THE RECORD MUST BE MANIPULATED IF THE FIELDS USED FOR I 
'THE SORT KEY ARE NOT CONSECUTIVE (HIGH FIELD FIRST). i 

•THIS CAN BE DONE BY MOVING THE VARIOUS FIELDS TO AN % 

•NULL DEVICE OPEN ON ANOTHER CHANNEL. ANY CHANNELS & 

•USED MUST BE FROM CHANNELS 1 TO 4. THE NAME OF THE & 
IFIELD CONTAINING ONLY THE LAST UORD OF THE TOTAL KEY i 
!IS PASSED IN THE CALL STATEMENTS. ALONG WITH I 

!THE LENGTH OF THE KEY AND THE LENGTH OF THE ENTIRE % 

•RECORD. » 

•**»» for more information. PLEASE SEE CHAPTER 5. 

I 

ON ERROR GOTO 19000 !SET ERROR TRAPPING I 

I 

\OPEN 'NL;* as file 2X. RECORDSIZE 24200Z. I 

MAP WORKS i 

\MAP (WORKS) » 

KEY.AREA4=6X. & 

WORK.AREA$=24000X. i 

lERRORZ. & 

KEYSIZX. X 

MAXRECX. i 

IWKSIZX. & 

IFILESZ. i 

IRECSZX. & 

BIGBUFX. S 

IZ I 

\MAP (WORKS) i 

FIL.2»=4Z. * 

KEY.ADR$=2Z X 

\KEY.AREAS = • • % 

\WORK.AREAS = • • I 

\IERRORZ = OZ ! CLEAR ERROR CODE FIELD i 

\KEYSIZZ = 6Z 'KEYSIZE (MUST BE EVEN) I 

•PUT YOUR KEYSIZE HERE I 
\MAXRECZ = 30Z 'RECSIZE (MUST BE EVEN) I 

•PUT YOUR RECSIZE HERE & 


\IWKSIZZ = 24000Z 'WORK AREA SIZE IN BYTES* 


\IFILESZ = 4Z 'SCRATCH FILES 02) * 

\BIGBUFZ = 14Z ‘BUFFER COUNT * 

\OPEN ’SORTST.DAT* FOR INPUT AS FILE IZ. !OPEN INPUT & 
ORGANIZATION SEQUENTIAL FIXED. X 

ACCESS READ. X 

CLUSTERSIZE 128Z. X 

MODE 2304Z. X 

MAP SKTREC i 

\MAP (SRTREC) 'MAP OUT INPUT RECORD X 

SORT .RECS = 30Z X 

\MAP (SRTREC) & 

KEY.1S=6Z. X 

SORT.DATS=24Z X 

\CALL RSORT BY REF (lERRORZ. KEYSIZZ. MAXRECZ. KEY.ADRS.X 
WORK.AREAS. IWKSIZZ. IFILESZ. BIGBUFZ) X 

•CALL RSORT TO INITIALIZE THE SORT X 

\GOTO 6900 IF lERRORZ C> 0 'GOTO IF ERROR OCCURED X 

\IRECSZZ = 30Z 'RECSIZE SAME AS MAX X 


6020 'SECOND CALL X 

X 

GET SIZ 'READ NEXT INPUT RECORD X 

X 

'AT LINE 19000+ INCLUDE AN EOF (ERR=11) TEST WITH THE X 
'RESUME AT 6030 TO GO ON TO THE NEXT STAGE OF THE SORT. X 

X 

'SET UP KEY ROUTINE ***t**t*t*t**t$****$$************* X 
•AS EXPLAINED ABOVE IN THE INTRODUCTION. THIS MUST BE X 
'DONE IF THE SORT KEY FIELDS ARE NOT CONSECUTIVE AND/OR X 
'DO NOT START ON THE WORD BOUNDARY. THE MAJOR SORT KEY i 
•COMES FIRST. FOLLOWED IN ORDER BY EACH OF THE MINOR X 

'KEYS. ONCE THIS IS ACCOMPLISHED. THE ENTIRE KEY IS X 

'REVERSED IN ORDER. THE SORT THAT WILL OCCUR IS AN X 

'ASCENDING KEY SORT. BY CHANGING ALL CHARACTERS IN A X 
'KEY TO THEIR COMPLEMENT VALUE. A DESCENDING SORT FOR X 
'THAT KEY SHOULD TAKE PLACE. BOTH THIS SWITCH AND THE X 
•ENTIRE KEY REVERSAL ARE ACCOMPLISHED USING THE CHANGE'X 
' CTATEMENT . X 

X 

\RSET KEY.AREA* ^KEY . 1 X ' +KEY . 2X fKEY.3*. ETC. ***** X 

\CHANGE KEY.AREAX TO A X 

\B( JZ)=A(KEYSIZZ-J*/. + lZ) FOR JZ = KEYSIZZ TO IZ STEP -IZ X 
vB(OZ)=A(OZ) X 

\CHANGE B TO KEY. AREA* X 

t 

\CALL RELES BY REF (lERRORZ. IRECSZZ. SORT.RECi) 'SORT X 



\GOTO 6020 IF lERRORZ^OZ 


'NEXT RECORD IN 

X 


\GOTO 6910 


'GOTO IE ERROR 

X 

6030 

'END OF MAIN SORT LOOP 



X 


CLOSE IZ 


'CLOSE INPUT FILE 

X 

X 


nChLL merge by ref (lERRORZ) 


'CALL THE MERGE 

X 


\GOTO 6930 IF lERRORZ 0 


'GOTO IE ERROR 

X 

6C40 

OPEN •SORTST.SRT* LOR OUTPUT 

AS 

ElLk JZ. 'OPEN OUTPUT 

X 


ORGAN IZA1 ION SEQUENTIAL 

FIXED. 

X 


ACCESS WRlTE . 



X 


ALLOW NONE. 



X 


CLUSTERSIZE 128Z. 



X 


F RESIZE 700Z. 



X 


CONTIGUOUS. 



X 


MAP OUTRFC 



X 


vMAP iOUTREC) 



X 


()UT.REC$ = 30Z 



X 

6050 

•OUTPUT WRITING 



X 


CALL RETRN BY REF (lERRORZ. 

RRECSIZZ. OUT.RECi) 

X 

X 


'RRECSIZ IS SIZE OF 

THE 

RETURNED RECORD 

X 


MF IERRORZ = OZ THEN PUT ♦ iZ 



X 


\GOTO 6050 



& 

6055 

GOTO 6060 IF lERRORZ 0 


'END OF FILE IN SORT 

X 


\GOTO 6940 


'ERROR 

t, 

-S060 

'CLOSE OUT ROUTINfc 



X 


CLOSE 



K 

X 


\CALL ENDS BY REE (lERRORZ) 



X 


\GOTO 6950 IE lERRORZ 0 


•GOTO IE ERROR 

X 


\GOTO 32000 


•CLOSE EILES AND END 

X 


6900 

PRINT 

• INITlALIZATION 

• ; 


X 


\GOTO 

6990 



& 

6910 

PRINT 

•READ •; 



X 


^GOTO 

6990 



X 

6930 

PRINT 

•MERGE •; 



X 


\GOTO 

6990 



X 

6940 

PRINT 

•OUTPUT •; 



X 


\GOTO 

6990 



X 

6950 

PRINT 

•CLOSE •; 



X 


VGOTO 

6990 



X 

6990 

PRINT 

•ERROR IN SORT 

MonuiE •;lERRORZ 


X 


\STOP 




X 

19000 

RESUME 60 30 IF ERR-11 

•END OF INPUT 

E ILI 

X 


SPRINT err;* at •;erl 

\ STOP \ RESUME 

J2000 

X 

52000 

' END 

OF PROGRAM 



X 


Cl USE 

IZ EOR IZ - IZ 

TO 12Z 



^J767 

END 




f 


SPECIAL OFFER 

MACHINE READABLE 800 BPI DOS LABEL 
OF MAJOR PROGRAMS IN THIS ISSUE 

Part of the proceeds will be going to the authors. 
Send *50 to: 

M SYSTEMS. INC. 

Box 361, Fort Washington, PA 19034-0361 
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COMPUTER MANAGED INSTRUCTION, a tool for the modern educator 

CMI, a powerful tool for the modern educator is now a reality. 

CM I is a computer program designed to provide computerized 
instruction, tests and remedial work to students. It adapts to 
each students ability allowing them to work at their own pace. 

Students log on and access the information using the EXPLORE 
function, an easy to use, interactive program. The educator can 
design multiple learning modules using the flexible CREATE 
function and monitor each student’s performance via the 
REPORT function. CMI was designed by university faculty and 
is currently being used in secondary schools, vocational 
schools and universities. 

♦For RSTS Users. 

To find out how CMI can benefit your institution contact 

ir T ir V Effictive Learning Exchange 

J J J .i .A. p 0 . Box 14, Medford, New Jersey 08055 

609 / 654-1100 CIRCLE 68 ON READER CARD 


TALENTED. SHARABLE. 
RESPONSIVE WORD PROCESSING. 



WORD-11. 

WORD-11 is so- 
phisticated word 
processing—with 
features like list pro¬ 
cessing, automatic spelling er¬ 
ror detection, indexing and 
footnoting—yet it’s easy to 
learn and use. 

It’is sharable, up to sixty 
terminals. It’s flexible. It’s rel¬ 
atively inexpensive. And it’s been 
operating for four years in 
hundreds of installations 
around the world. 

CIRCLE 69 ON READER CARD 




Available 
on RSTS/E, RSX and 
VAX/VMS versions, for DEC’S 
family of mini-computers. 

Call or write: 
Corporate Office: 181 W. 
Orangethorpe Ave., Suite E, 
Placentia. CA 92670 
(714) 9934160. New York 
Office: (212) 687-0104. 
Washington, D.C. Office: (301) 
6574098. 


Data Processing IX'sign, 
...hSBSDDSD ^ 


Inc. 




Optimizing Space 
Allocation of Literals 
in Basic-Plus-2 

By Brad Smith. Allied Data. Olympia. WA 

The author has worked on PDP-11 s for 5 years in several languages. He 
now specializes in the design and optimization of BASIC-PLUS-2 application 
systems. 

When a BASIC-PLUS-2 is compiled, space is allocated for 
every literal and variable that occurs in the program. Being 
aware of the differences in how literals and variables are 
stored can help in fine-tuning a program. 

STRINGS: 

Literals and variables are stored in a similar manner, 
with a 1-word pointer to the data, a 1-word length counter, 
and the data. However, literal data are stored at compile 
time, while only the header (pointer and length counter) are 
allocated for variables. Furthermore, if the same literal oc¬ 
curs more than once in a program, it is still stored only once. 
This feature can be useful if a program contains a number of 
similar literals which can be modified so that they are iden¬ 
tical. For instance, if a program uses 'ABC in one place and 
ABCD' in another, then using ABCD' in both places saves 8 
bytes (4-byte header, 3 bytes of data, and in this case, 1 null 
byte because string literals always occupy an even number 
of bytes). 

FLOATING-POINT: 

Space for both literals and variables is allocated at com¬ 
pile time, and floating-point literal data are stored in the 
same areas, and interspersed with, string literals. As with 
strings, a floating-point literal is stored only once no matter 
how many times it occurs in the program, so it may be 
possible to save space by reducing the number of different 
literals. For instance, if a program contains these two condi¬ 
tionals— 

IFA> = 100. and IFA<=99. 

—then 4 or 8 bytes (single or double precision) can be saved 
by using 

IFA> = 100. and 1FA<100. 

INTEGERS: 

Integer variables are allocated at compile time, similarly 
to string and floating-point numbers, and an integer 
variable operand is actually a pointer to the datum itself, 
also similarly to floating-point numbers. (A string operand 
points to the header, which itself contains a pointer.) 
However, an integer literal is stored in line at compile time: 
that is, the operand is the number itself. Thus, an integer 
literal occupies less space than a variable and undoubtedly 
will be processed more quickly. 

In many programs, these suggestions would not save 
an appreciable amount of space. But with that crucial pro¬ 
gram that takes a shoehorn (or a sledgehammer) to fit in 
memory every time you add a few lines of code, checking 
literal usage may well be worthwhile. ^ 
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DIRECTS ANSI COMPLIANT 
TERMINALS STAND APART 







DI'RECT (di rekt', di-) adj. 

1. honest and to the point; 
straightforward; frank 2. a distinctive 
family of ANSI compatible video 
display terminals, each noted for its 
emphasis on human engineering, 
functional elegance, and VTIOO* 
and VT52* compatibility 3. by the 
shortest way; straight 4. a family of 
terminals that spans the needs from 
interactive operation to editing and 
block mode and culminates with full 
user programmability and data entry 
capabilities. 

For more information contact 
us... DIRECT! 

DIRECT INCORPORATED 

1279 Lawrence Station Road 
Sunnyvale, California 94086 
(408) 734-5504 
(800) 538-8404 Outside CA 
Telex 172277 

DIRECT (U.K.) LTD. 

12 Rufford Court 
Hardwick Grange, Woolfston, 
Warrington WA1 4RF 
Padgate (0925) 814072 
Telex 666910 


‘Registered Trademark of Digital Equipment Corporation 


CIRCLE 70 ON READER CARD 














































page 70 


December 1981 


VTEDIT.TEC 

By David Spencer. Infinity Software Corporation 

The following is a continuation of David’s article which appeared in the previous issue of the RSTS Professional (Vol. 3. ^3). 


“I have provided the new VTEDIT macro in a “run’ able source pro¬ 
gram form. I realize that everybody is going to want to stick in some 
extra feature. So. it is left as an exercise to the student to squish 
VTEDIT down to a smaller size. (The source program runs in lOK and 


can be cut down to at least 7K, and perhaps 6.) Infinity Software Corp. 
makes no guarantee for the performance of VTEDIT.TEC, nor takes 
any responsibility for the use of VTEDIT.TEC. However, inquiries, sug¬ 


gestions. bugs, or whatever can be sent to: David Spencer. Infinity 
Software Corp., 2210 Wilshire Blvd., Suite 801, Santa Monica, Calif. 


90403. phone: (213) 820-2702." 


Copyritjht (C) 198i by ! 
Infinity Sottware Corporation ! 

Ttiis sotLWare is solely for ! 
non-comiDcrcial use and may be only ! 
used and/or copied witti the inclusion ! 
of this notice. No title to or ! 
owneriwiip ol the software is hereby ! 
transferred. ! 

! 

The iniurmatiun in this sottware is ! 
suD]CCt to chanye without notice and ! 
snould not be construed as a ! 
commitment by Infinity Software ! 
Cor{X)rat ion. J 


! W% Restore direction flag ! 
! W$ Unoe^ete Word register ! 
! 1 
! The register P$ is used as the ! 
! suDstitute buffer in the GOLD ENTER ! 
! sequence. It is up to the user to ! 
! place text in register P$ I 


+++++++++++++++++++++++++++++++++++++ ! 
Load get numeric argument macro I 


@“U0$ 

0U3 .U7 ZJ .U8 0001// 

< *Tu0 Q0"D QO0I// > ' 
OBJ \U9 “SD 07J 
$ 


!IVTEDIT.TEC V01.02!! 


+++++++4+++++++++++++++++++++++++++++ ! 

I.oao the word delimiter list ! 


! Author: David Spencer - 19-Jun-81 ! 
! ! 
1 WARNING: This VTEDIT destroys the I 
! numeric registers. ! 
! ! 
! Registers used: ! 


! 0% Character read from KB ! 

! OS Accept numeric argument ! 

! 1% Current direction ! 

! 1$ word delimiter list ! 

! 2% MasKeu character ! 

! 2$ Control character mask ! 

! 3% GOLD key flag I 

! 3$ Keypad character mask ! 

! 4% State of exit ! 

! 4$ GOLD character mask ! 

! 5* Command entered flag ! 

! 5S Enter TECO command/search string! 

! 6% Current cnaracter position 

! 6S TECO command entered 

! 7% Scratch 

! 7S String to search for 

! 8% Scratch 

! 8S Scratch 

! 9% Numeric argument 

I 9$ Display HELP frame 

! C% Undelete direction flag 

! CS Undelete Character register 

! 1% Old ET value 

! 1$ This VTEDIT macro 

! L% Restore direction flag 

! L$ Undelete Line register 



320‘Ul// 9:0''U1// 13:@“U1// 1O:0'U1// 44:0‘U1// 

! 4444444444444444444444444444444444444 1 

! Load control character mask ! 


0'‘U2/.A.CDEF.H.JK.M_R. . UVWXYZ [\. . ./ 


:@“U2/./ 

:@*U2/./ 

:0'‘U2/./ 

1 4444444444444444444444444444444444444 I 

! Load keypad character mask I 


P*U3/./ 

@:‘U3/./ 

0: “U3/ .ABCD.M. .PQRS./ 

0: “U3/.Imn. pqrstuvwxy./ 

! 4444444444444444444444444444444444444 ! 

! Load GOLD character mask 1 


P“U4/.X.Z./ 

0: 'U4/./ 

0:‘U4/.Q./ 

0:'U4/.q./ 

! Load the input text macro I 

j - j 


H“U5$ 

l!2 0U5 .L'7 ZJ .U8 

155*T 0''A/[H/ ISS'T 0“A/|K/ 10‘T 155‘T @''A/[K/ 155“T 0“A/|H/ 0:“U8/: / :G8 
[8 0I/G/ 02\ .-2,.X8 -2D M8 18 

0B-."N Q8,.T “TUO Q0-127"N Q0-27“N ISS^T 0“A/IH/ 155“T 0“A/IK/ :G8 QB,.D ' 


‘TUO 

!A! 

00-127"= .-08"N R OA- 9"= ISS'T 0“A/[H/ :G8 Q8,.T D F< ’ 

0A-10"= 155“T 0‘A/[A/ D F< ' 

0A-13"= 155“T 0''A/[H/ :G8 Q8,.T D F< ' 

8“T 32“T 8“T 

0A-32"< 0A-27"N 8*T 32‘T 8"T ' * D ' F< ' 

00-21"= 0«,.D 0; ' 

00-27"= “TUO 00-“"O"N 2701// 27“T 0O!A1 

I ‘TUO 00-“' t"» lUl ' 00- u"= -lUl ' 

01/08,.X/ 02\ .-6,.X8 -6D M8 08,.D -1U5 0; 

0001// OO'T 


07 J 

32768W -3W 05 
$ 


! 4444444444444444444444444444444444444 1 


! Load the HELP macro i 

J - j 


0'U9S 
155‘T 0 
0'‘A# (H 


gold 


Gold 

gold 

gold 

gold 


"A/I2J/ 155*T 

Backsp Go to beginning of line 
Delete Delete character 
<lr> Delete to start ot word 

CTRL/A Append to buffer 

CTRL/D Delete to end of line 

CTRL/Eq Execute register "q" 
CTRL/F Move forward a word 
CTRL/K Cut region to 0-reg 
CTRL/R Move backward a word 
CTRL/U Delete to start of line 
CTRL/V Enter/exit "view-all" 
CTRL/W Refresh screen 
CTRL/X Copy region to Q-reg 
CTRL/X Append region to Q-reg 

CTRL/Y Yank a page 
CTRL/Z Return to TECO 
CTRL/Z Close and exit TECO 
0 Abort edit and exit 

CTRL/\ Insert ASCII ot next 
ARROW ' Move upward a screen 
ARROW V Move downward a screen 


-4-4-4- 

I I Fndnxt I Dei L 

Gold j Help I I 

I I Find I Und L 

-4-4-4- 

Page I Sect | Append | Del W 

I I I 

CommandiNxt Page I Replace! Uno W 


Advance! Backup ! Cut ! Dei C 

! ! I 

Bottom ! Top ! Paste ! Uno C 

-4-4-4- 

Word ! Eol ! Char I 

j I ! Enter 

Chngcase I Del EolI Specins! 

-+-+-I 

Line ! Select ! 

I j Suds 

Open Line I Reset I 


Hit any key to continue i 
“T *I 
$ 


! 4444444444444444444444444444444444444 ! 

! Load VTEDIT.TEC macro I 

, - I 

0*UI$ 

(C (L (W 0U6 16 0U6 lUl OUC 320“UC// 

ETUI 

2#4#8t256l512t32768ET 

4,0:W 

155‘T 0''A/</ 155‘T 0“A/=/ 

Z"= ETU7 ET#32ET 'T"< Q7ET M9 ’ Q7ET ' 

< 

32768:WS127U0 1U9 0U3 

!A! Q0-127“= Q9< -.; R OA0*UC// D > OUC F< ' 

Q3"= 00Q2U2 0O1''EU2C! ! Q0Q4U2 0Ol'‘EU2GC! ' 

!MC1 “TUO Q9< 1301// 1001// > F< 

IICl “TuO 00"D MO 0OIA! ' “TUO Q0Q3U2 Q3"= 0Oi“EU2K! ! 0O!“EU2GK! ' 

!PK ! 

!PGK! -1U3 “TUO Q0-27"= 00!(C! * Q0"D MO ’ 0O!A! 

!pK! Ql"> 09L F< * 

!HC! 0“0"N -1%9 “[ OL ' Q9< -L > F< 

!qK! 01"< 0O!RC! ' 

!FC! Q9< 0S/“EG1/; 0S/“N“EG1/; R > ."= ZJ ' 0U6 F< 

!RCl Qy< R 0-S/“N“EG1/; R 0-S/*EG1/; > 0U6 F< 

!rGK! 

.rDC! .-Z"N Q)f< .U7 L .-Z"N 2R ' .U8 07J .,08XL K > 

.-Z"N 1301// 1001// 2R ' ' -lUL F< 

!JC! Q'f< .U7 R : 0-S/“N“EG1/"S R * ;0-S/“EGl/"U J ' Q7,.XW Q7,.D > 

OUW F< 

!UC! OXL OK OUL F< 

! .Cl Q9< 0001// > F< 

!AK! -09U9 

!BK! 0U7 .U8 OL Q8-.< 0A-9"= (Q7/84l)*8U7 ! %7 “( ' C > 

Q9L 

Q6U9 16 09-Q7"N Q7U6 ' 

0U8 

< .-Z; 0A-13"N 0A-9"= (Q8/84l)"8U8 ! %8 “I * C Q8-Q6; > ' 

06-Q8"N 0A-13"N R -1%8 “I * ' 16 Q8U6 F< 

!sK! Ql"< 0O1DK! ' 

!CK! .4Q9-Z"< Q9C ! ZL * 0U6 F< 

!DK! .-Q9"> Q9R ! J ' 0U6 F< 

!Mr! F< 

!RKi .U7 Q9*Q1:0S/“EQ7/"U Q7J 00!ERR! ' F< 

!SK! Q9< XL K > -lUL F< 

!1K! Q!#< .-Z; OA0“UC// D > -lUC F< 

!mK! 09< .U7 :0S/“EG1/"U ZJ 0; ' :0S/“N*EG1/"S R ! ZJ ' 07,.XW Q7,.D > 
-lUW F< 

!nK! 4:W"= .4l,4:W I 0O1ERR! ’ F< 

!rK! 0A-13"N -1%9 “1 ' Q1*Q9L .-Z"N L 2R ’ F< 

!tK! lUl F< 

!uK! -lUl F< 

!wK! 120*U8// Q9*Q1:0S/“EQ8/"U Ql"< J I ZJ ' ’ F< 

!xK! Q9*Q1*16L F< 

!MGK! .-:Q7"< 0O1ERR! ' .U7 :Q7R ;:0S/“EQ7/"U Q7J 0O1ERR! * 

Q9< “SD GP .U7 :0S/“EQ7/"S > F' ! Q7J 0O1ERR! ' F< 

!RGK! 0“U8/Search for/ 7M5"N .U7 Q1*Q9:0S/“EQ7/"U Q7J 0O1ERR1 ’ ' F< 

!SGK! Q9< GL QL"N “SC ' > F< 

!1GK! Q9< GC > QC"N Q9R ' F< 

ImGK! Q;#< GW QW"N “SC ' > F< 

InGK! 0,4:W 0U3 F< 

IpGK! Q9< 1301// 1001// > Q9*2R F< 

IqGK! 4:WU7 Q7"N -1%7 “[ .-Q7U9 Q9"> Q7J ! -Q9U9 * 0,4:W ' 

Q9< 0A"A 0A"V OA-320I// ! OA4320I// * D ! C ' .-Z; > F< 

!SGK! Q90I// F< 

ItGK! ZJ F< 
luGKl OJ F< 

!AGK! -1*Q9U9 
IBGK! 24*Q9L F< 

!XC! 0U2 001 REG! 

IKC! 

IvK! -1U2 0O1REG! 
lyKl 

!XGC! 1U2 

IREG! OUO 4:WU7 Q7"N -1%7 “I “TU8 
Q8"R 0“U8// 

02•> 0:“U8/:Q/ Q8:0“U8// 0:“U8/UO/ ’ 

0:“U8/ .,07/ 

Q2"> 0:“U8/:/ ' 

0:“U8/X/ 

Q8:0“U8// 

0:“U8/.-Q7"< Q7J • Q2"N -(:Q/ Q8:0“U8// 0:“U8/-QO)D ’ 0,4:W/ 

M8 ! 00!ERR! ' ! 00!ERR! ' F< 

IvGK! 

lEC! “TU7 Q7"R .U8 Q3"= 01/M/ ! 0I/G/ ' Q70I// Q8,.X8 -2D Q9< M8 > 

! 00!ERR! ' F< 

IwGKi 0“U8/TECO Command/ 6M5"N 270:“U6// Q9< M6 > ’ F< 

IxGKl 

lYCl 0ER// G* “S"= 0O1ERR! * 

“SD 0EW// G* 

02-“"x"N “S"= Q9< Y > ! “SD 0O1ERR! ' 

I “S"N “SD Q9< P > ! 0O1ERR! • ' F< 
lyGK! 4:WU7 Q7"N -1%7 “( “TU2 02"R 0I/G/ 0201// .-2,.X8 -2D 
.,Q7D M8 0,4:W ! 0O1ERR! ' ! 0O1ERRI ' F< 

IVCl 3:W“_,3;W F< 

!WC! 4,0:W 155“T 0“A/=/ F< 

!\C! “T\ F< 

!YC! 0ER// G* “S"= 0OIERR! ' 

“SD 0EW// G* “S"= 09< Y > ! “SD 0OtERR! ' F< 

!AC! 0ER// G* “S"= 00!ERR! ' “SD 

Qy< “E"N .U7 ZJ 1201// Q7J ' A > F< 

IZGC! 0EW// G*“S"= 0O1ERR! ' “SD 1U4 0“U8/Exiting/ 0; 

ICC! 

!ZC! 0U4 @“U8/Returninq control to TECO/ 0; 

IqGC! 

IQGC! -1U4 0“U8/Aborting edit/ 0; 
lERR! 

ICGK! 

IDGK! 

! .K! 

! .GC! 

!.gK! 7“T 32768W F> 

!QK! 

lOGK! M9 

> 

QIET 

155“T 0“A/[23;1H/ 155“T 0“A/(J/ 10“T ;G8 0“A/.../ 155“T 0“A/>/ 

Q4"N 155“T 0“A/(?21/ 04"> EC 13“T 10“T EX ! HK EK 13“T 10“T EX ’ ' 13“T 10“T 
16 1C IL IW 


0EI// 

















































Minicomputer users 



Timeplex offers 
a one-stop system 
solution for 
communicating 
with multiple 
remote terminals. 
Economically. 


Asynchronous statistical multiplexer 


Synchronous statistical multiplexer 


High speed modem 



The Timeplex E/SERIES is a complete data 
concentrator system designed to economi¬ 
cally link clusters of remote terminals to your 
minicomputer. 

E/SERIES: Cuts communications costs. 

Suddenly, saving communications costs by 
linking several terminals to one shared tele¬ 
phone line becomes easy. 

Unlike the competition, the Timeplex 
E/SERIES simplifies the challenge of point- 
to-point communications by incorporating 
three functions in a single compact unit. One 
system offers you a statistical multiplexer sup¬ 
porting 4 to 16 asynchronous channels, plus 
an optional statistical multiplexer for an addi¬ 
tional synchronous channel, plus an optional 
integral high speed modem. 


E/SERIES: Puts it all together. Putting 
three functionally distinct modules in one 
enclosure eliminates external communica¬ 
tions units and bulky, expensive cables. And, 
a minicomputer interface option further 
reduces costs. The result: System planning 
and installation is extremely simple. Reliability 
is enhanced. Costs are dramatically reduced. 

Free step-by-step Guide. This easy-to- 
understand booklet contains all the facts on 
how to remote your terminals, simply and eco¬ 
nomically. Just write or call Timeplex for your 
free copy. 

For the name of the E/SERIES stocking dis¬ 
tributor nearest you, call 201-368-0736. 

Timeplex, Inc./One Communications Plaza/ 
Rochelle Park, N.J. 07662. 
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in data communications 
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THE RSTS/E SYSTEM MANAGER 

By Jeffrey R. Harrow, 485 Creekview Dr.. Stone Mountain. GA 30083 


Welcome to the anniversary issue of the RSTS Pro. I’ve taken 
a moment to look back through these issues and I’m really 
pleased at the amount of directly applicable information 
which I’ve extracted from the many articles I’ve read and is 
not available from any other source. Carl and Dave, here’s 
one individual who appreciates what you’re doing and hopes 
that it continues and grows. 

Last issue I left you with a somewhat cryptic indication 
that there was a problem with using the TU77 tape drive. It 
appeared that the drive could write data on the tape which 
in reality didn’t look like the data that it thought it had writ¬ 
ten, yet the system did not catch this error when the drive/ 
formatter combination did its "implicit read after write." 

Let’s take a brief look at what I mean by an "implicit 
read after write”: 

The path the tape follows begins on the supply reel, 
goes past the Erase Head, then the Write Head, and finally 
past the Read Head on its way to the take-up reel. 

During a ’’Write" operation, the Erase Head puts the 
tape in a ’’no data" condition, the Write Head writes the data 
onto the tape, and then the Read Head (even though we are 
in a write operation!) reads the data which was just written 
by the Write Head. This data is checked for validity via 
parity and other checks in the TM03 formatter. 

Under normal conditions, if the data just read does not 
compare against what the formatter thinks that it just told 
the drive to write, the formatter flags an error condition to 
the MM Driver software (part of RSTS/E) which attempts to 
re-write the block of data using a number of industry ac¬ 
cepted techniques (such as writing a Long Inter-record Gap 
over the ’’bad" section of tape and trying again). 

Therefore, you should almost never be able to write a 
tape which you feel is "good” and is not later readable on, at 
least, the same drive. 

This problem came to light when I began noticing that, 
during the COMPARE phase (which is another full Read of 
the tape) of BACKUP (you do use a COMPARE, don’t you?) I 
was occasionally getting UNEQUAL COMPARES on blocks of 
some files which I was able to verify had not changed during 
the BACKUP procedure. Additionally, I would usually see 
BAD BLOCK ON BACKUP VOLUME (ON COMPARE) errors at 
the same time (indicating that the drive could not read a 
block on the tape). 

An investigation of the error log indicated that we were 
NOT taking any correctable ‘write ” errors, much less UN- 
correctable ’write ” errors while this tape was being written, 
yet. just minutes later, the same tape could not be read even 
after RSTS/E (the MM Driver) did its 16 retries! Further 


tests indicated that, indeed, the data in these blocks on the 
tape was not invalid. 

To make a very long investigation short, DEC de¬ 
termined that there was a problem in their technical instruc¬ 
tions for setting the Ramp-up speed of the tape drive’s cap¬ 
stan (and are correcting this problem). Furthermore, the 
software group found a ’’hole" in the MM Driver which they 
felt would account for this problem and sent a software 
specialist out to test the patch. 

The software specialist had Field Service intentionally 
misadjust the tape drive and reproduced the error condition. 
He then installed the patch and it didn’t resolve the errors, 
so he and his patch went away. 

About a month later, after I had experienced the prob¬ 
lem several more times, DEC finally indicated that they still 
felt that the patch (which is going to be published in the 
Software Dispatch) would cure the problem and that it 
didn’t work when the tape drive was intentionally mis- 
adjusted because of the magnitude of the misadjustment. 
In any event, the patch is now installed in my operating 
monitor, and I’m waiting to see if it reoccurs. 

I have just two reservations at this time: first, what I 
seem to be hearing is that the error detection/recovery 
process should only work if the drive isn’t too broken; and 
second, I have provided DEC with several instances of docu¬ 
mented error logs where the same thing has happened on a 
different type of tape drive (TE16), with a different format¬ 
ter (TM02), using a different software driver (MT). on a dif¬ 
ferent type of PDP-11 . .. 

I’ll keep you informed and still recommend that you 
utilize a COMPARE whenever possible! 

On another subject. Bob Nixon from England wrote to 
me with a suggestion for providing system protection for 
the Basic Primer CMI package. With the executable program 
in the user’s account given a protection code of <232> 
(Temporary Privilege) and the data file in the user’s account 
(which that program reads) given a protection code of 
<63> (no Read, Write, or Delete access to the owner), the 
user should not be able to modify the data file (and hence 
change the name of the program to which the executable 
program will later CHAIN with Temporary Privilege). 

Unfortunately, while the owner of a file can’t do any of 
these things to a file with a protection code of <63>, he 
can RENAME the file to a protection code of <60>, and 
then perform whatever modifications he desires, thereby 
seriously breeching the system’s security. 

Bob, thanks for your input and I would like to hear from 
anyone who is interested in these topics. — See you next issue. 

_t 
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THE ELECTRONIC SPREADSHEET FOR DEC COMPUTER SYSTEMS 


APPLICATIONS 

Financial statements 
Business forecasting 
Resource management 
Investment analysis 
Job costing 
Performance analysis 
Cash Flow analysis 
Error analysis 

EASY TO USE 

Built-in automatic training procedure 
Instant HELP available at the terminal 
User-friendly / interactive 

SAVES MONEY 

Reduces demand on information 
system personnel 
Eliminates long hours of 
“what if" calculations 
Report and form printing costs 
reduced or eliminated 
Low, one-time investment 

PROVIDES INSTANT REPORTS 

Choice of formats 

Working copies or board-room quality 


• AUTOMATIC CALCULATION 

• EXTENSIVE MATH FUNCTIONS 

ALGEBRAIC 

LOGICAL 

FINANCIAL 

SCIENTIFIC 

USER DEFINED FUNCTIONS 

• TEN KEY NUMERIC DATA ENTRY 

• EXTENSIVE HELP AT TERMINAL 

• INCLUDES SELF TEACHING MODE 

• WORKSHEET CONSOLIDATION 

• VARIETY OF “BOARDROOM- 

QUALITY REPORTS 

• SAVES AND RECALLS WORKSHEETS 


ON RSTS/E, RSX-11M, VMS 
SOON ON RT-11, TOPS 20 
VT-100 OR MOST EMULATORS 


NOW AVAILABLE AT INTRODUCTORY PRICES THRU DECEMBER 31, 1981 




WHY 
SYSTEMS 
INCORPORATED 


17130 Avondale Way. N.E. 

Redmond, Washington 98052 
(206) 881-2331 

CALL TODAY FOR A DIAL-UP DEMONSTRATION 
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By Brian Lomasl^, 528C Shennecossett Road, Groton. CT 06340 
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PUZZLE ROOM 

nn-MARBLE WALL 
SS-SANDSTONE VALL 
L L=LADDER 
DD-STEEL DOOR 
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HH-HOLL \N CEILING 
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CALLER.BAS 

By Steven Fahey. Teachers Service Organization. Willow Grove. Pa. 


10 


20 


1000 


CALLEli was designed to help take care of small buffer 
problems associated with RSTS/E >/ersion 7.0 . 

Since each CCL command takes up one small buffer* 
having many CCL's on the system could end up 
causing a lot of unnecessary small buffer problems 
that arise when many jobs are on the system at 
the same time. 

CALLER uses one CCL and eliminates the need for 
any others. 

Simply use the CCL command the same as you always 
would* but add the word 'CALL* to the front of it. 

For Example: 

To Cue the file 'TEST.LST' to the line printer* 

Type 'CALL CUE LPO:-TEST.LST' 

To Set the speed of a terminal to 2400* 

Type 'CALL SET SPEED 2400'* 

And to see the valid call commands* 

Type 'CALL HELP*. 


Programmer : Stephen Fahey 

Installation : Teachers Service Organization* 
«rillow Grove* PA 


ENTRY PROCESSOR 


1010 EXTEND 

1020 ON ERROR GOTO 19000 fi 

1030 GET.CORE.COMMONS - SYS(CHR8(7\)) * 

\ GET.CORE .COMMONS - ft 

MID(GET.CORE.COMMONS* 6\, LEN( GET. CORE .COMMONS) - 5h) Si 
\ END.OF.CCL.COMMANDS - INSTR(1\* GET.CORE.COMMONS* ■/") ft 

\ IF END.OF.CCL.COMMANDS < 6H AND ft 

END.OF.CCL.COMMANDS <> 0% THEN GO TO 1050 ft 

ELSE END.OF.CCL.COMMANDS - INSTR(1\* GET.CORE.COMMONS* • •) ft 

1040 IF END.OF.CCL.COMMAND*? - 0\ THEN ft 

CCL.COMMANDS - GET.CORE.COMMONS ft 

\ GOTO 2010 ft 


1050 CCL.COMMANDS - ft 

CVTS8(MID(GET.CORE.COMMONS, 1\, END.OF.CCL.COMMANDS - 1%), 4\)ft 

2000 i « 

i ft 

i MAIN PROGRAM « 

i ft 

i ft 

2010 PUT.CORE.COMMONS - SYS(CHRS(8\) ♦ GET.CORE.COMMONS) « 

\ IF CCL.COMMANDS - -HELP" THEN <6 

PRINT CHR8(155%) ♦ "H- t CHRS(155\) ♦ ‘J"; & 

\ PRINT •Command"* ■Description"* ■ •* TIME8(0\)j DATE8(0%) fi 

\ PRINT ■-•* ■ - ■ C 

\ PRINT t 

2020 READ CCLS, PROGRAM.DESCRIPTIONS* PROGRAMS* LINE.NUMBERS « 

2030 IF CCL.COMMANDS - "HELP" THEN t 

PRINT CCLS* PROG RAM. DESCRIPTIONS « 

\ GO TO 2020 t 

2040 IF CCLS <> CCL.COMMANDS THEN GOTO 2020 I 

ELSE CHAIN PROGRAMS LINE LINE.NUMBER\ & 


19000 1 

I 


1 ERROR PROCESSOR 

i 

! 

19005 IF ERR - 57 AND CCL.COMMANDS - "HELP" THEN RESUME 32700 


19010 


IF ERR - 57 THEN PRINT CHR8{155%) ♦ "H" ♦ CHR8(155%) ♦ "J" 
\ PRINT 

\ PRINT "Not a valid 'Call* command" 

\ PRINT "Type 'Call help* for help" 

\ PRINT 
\ RESUME 32700 
! 

1 NOTE — STATEMENT 1 OF THIS LINE IS CLEAR SCREEN FOR VT52 
I 


19015 


\ 

\ 

\ 

\ 

\ 


IF ERR - 5 AND ERL 
PRINT 

PRINT "Can't Find 

PRINT 

PRINT 

RESUME 32700 


- 2040 THEN PRINT 
"} PROGRAMS 


19099 PRINT ft 

\ PRINT "ERROR "l ERRi " ON LINE "l ERL ft 

\ PRINT ft 


DATA STATEMENT 

COMMAND* DESCRIPTION, PROGRAM, LINE • TO CHAIN 


30010 DATA -ATTACH", "Attach to Detached Jobs", "SLOOIN.T3K-, 30000* 
•BPC", "BASIC PLUS Cross Reference", "SBPCREF . BAC" * 30000, 
•CANCEL", "QUE/ll Cancel Verb ", "SPLtCANCEL.TSK"* 0* 
•CHECK", "Personal Checking", • DRl : [1 * 101JCHECK .BAC", 0 , 
■CHESS", "Chess Game", "DRl:[100,100J CHESS.SAV", 0, 

■CLS", "Clear-Screen Command", • [ 1,101JCLS.BAC"* 0, 

■DIR", "Directory Listing", • [1 * 6]DIR.TSK"* 30000, 

•ED2"* "DEC Editor", •0ED2"* 0, 

•EDT", "DEC Editor" * •8ED2"* 0* 

•FINANCE", "Personal Finance", •[1,105jOPTlON.BAC", 0, 
"FORTRAN", "FORTRAN Compiler", "SFORTRA", 0, 

•LINK", "LINK Program", "SLINKF .SAV"* 8208* 

•LIST", "Program Lister", " I1 , 20 JLISTER.BAC"* 100, 

•LOAD", "CUE/ll Volume Loader", "SPL:LOAD .TSK" , 0, 

■MACRO", "MACRO Program", "SMAC.SAV* 8216* 

■MAKE", "TECO Pile Creator", "STECO.TEC", 0, 

•MOUNT", "Mount Devices", "SUMOUNT .BAC"* 30000, 

•OP", "Option Program", "t 1*310PTI0P.TSK" , 0, 

•OPTION", "Option Program", ■ [ l,3)OPTIOP.TSK", 0, 

■PASCAL", "PASCAL Compiler", " DRl : [1 ,4 ]Pl FP .TSK" , 1, 

•PIP", "Peripheral Interface Program", "SPIP.SAV". 8220, 
■QUE", "CUE Program", "SCUE.BAC", 30000, 

■SAVER", "SAVER Backup System", •[1, 7 JSAVER.BAC", 30000, 
•SET", "Terminal Characteristics", "STTYSET.BAC", 30000, 
■SIGN", "Gothic Sign Printer", •(2,23JGOTHPR.BAC", 0, 
•STARTREK", "Startrek Game", "DRl:[100, 100 JTREK52.BAC", 0, 
•STARWARS", "Star Wars Game", "DRO: 1 100,100 JR2D2" , 0, 
■SHOW", "CUE/ll CUE LISTER ", "SPLtSHOW.TSK", 0, 

•SPOOL", "QUE/ll CUE PRINTER", "SPL:PRINT.TSK•, 0, 
•SUBMIT", "CUE/ll CUE ENTERER" * "SPL:SUBMIT.TSK", 0* 

•SY", "System Status Display", "SSYSTAT.TSK", 30000, 

•SYS", "System Status Display" * "SSYSTAT.TSK", 30000, 
•TECO", "TECO", "STECO.TEC", 0, 

•TKB", "Task Builder", "STKB.TSK", 0, 

•UT", "Utility Program", "SUTILTY.SAV", 30000, 

■WAFE", "WAFE Text Editor", "DRl :[ 1,11JWAFE.WAF", 30000, 
■WCR", "WAFE File Creator", "DRlI [ 1, 1 1JWAFE.WAF", 30001, 
■WORD", "Word Processing System", • [3, 4)WPSMEN.BAC", 0 


END PROCESSOR 


3276 7 END ft 


Word 


* Word-11 by 

Data Processing Design, Inc. 
181 W. Orangethorp Avenue 
Placentia, CA 92670 


On Track Systems Provides: 

* • Sales 

• Service 

• Installation 

• Demonstrations 

• Training 

• Consulting 


At your 
convenience! 

At your 
office! 


On Track 
Systems, Inc. 


P.O. Box 
Ambler, PA 19002-02AS 
(21B) BA2-7133 
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OPTIMIZE 
your RSTS/E disks 
with DSKBLD. 


FILING PROBLEMS YOU MAY BE 
PUTTING UP WITH. 

• Fragmented UFD's • Excessive arm movement. 

• Poor file clustersizes. • Excessive FIP overhead. 

• Scattered files. • Disk bound response problems. 

DSKBLD HAS THE SOLUTIONS. 

• Contiguous UFD's. • Minimized FIP overhead. 

• Organized files. • Reducedjarm movement. 

• Optimum clustersizes. • Lower disk access overheads. 

Overtime for disk management is greatly reduced 
or eliminated. Disks get rebuilt more often because 
it's painless. 




DSKBLD is an . 

extremely fast RSTS/E 
disk-to-disk utility 
which: 

□ Supports mixed disk types. 

□ Untangles directory links. 

□ Creates contiguous UFD's to 
proper size. 

□ Creates accounts in sorted 
order. 

INTRODUCTORY 


□ Locates files adjacent to 
owner's UFD. 

□ Optimizes file clustersizes. 

□ Saves accounting data. 

□ Is easy to use and fully 
documented. 

□ Provides logging and 
statistics. 

□ Is inexpensive. 

PRICE $500. 

■RSTS/E is a registered trademark of 
Digital Equipment Corporation. 


1 

1 

\ 

T 

— 

11 

J_ 





SERVICES CORPORATION 

AUTHORIZED 

SDIDDSD 

COMPUTER DISTRIBUTOR 


HOME OFFICE CONTACT: 
Gary Vowels 
1700 Westlake Avenue N. 
Lake Union Building 
Seattle. Washington 98109 
206-285-3260 

PORTLAND OFFICE: 

Don Shafer 

9498 S.W. Barbur Blvd. 
Portland. Oregon 97219 
503-245-1261 


(—1 Send me more information on the DSKBLD 
^RSTS/E Disk. 


Name. 
Title_ 


Company 
Address _ 

City_ 

State_ 


Zip. 


Telephone 

I 


(Area) (Number) (Ext.) 
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SYSTEM MANAGEMENT FOR RSTS/E 

By Gary W. Miller, System Software Manager. Garden Way Manufacturing 
NOTE: Due to the tremendous amount of code, all programs referenced here are available on the distribution tape. 


For the last eight years I have been working on RSTS/E 
systems, in that time the need for additional programs for 
system managers has become apparent. Since 1 have been a 
system manager for the last four years I feel that I am fairly 
well qualified to break down those need into areas where 
the data is available from RSTS/E. 

What I have done is to create a group of programs to 
suppliment or replace some of DEC'S CUSPS. With these pro¬ 
grams I am able to charge out the system time to users on a 
consistant basis as well as charge for disk blocks. I am also 
able to charge for paper usage on either a block or page 
basis. The following paragraphs will explain each program 
or modification and how they enable me to give manage¬ 
ment a 'reasonable' figure to use for charge backs. This soft¬ 
ware was not intended to give a one-hundred percent figure 
because the system cost and development time would be 
unacceptable. 

The first program in the package is the ACCGWM.BAS 
program, which is a replacment for DEC'S REACT.BAS. This 
program allows the system manager to add, delete, and 
change information for an account on the system. The pro¬ 
gram keeps the information on the account in a data file for 
use by other parts of the billing package. In addition to the 
information that the DEC program requires this program 
needs an account description and client code be entered. The 
accounts are stored using logical names instead of physical 
device names to allow for packs being placed in different 
drives. 

The program BILLER.BAS gathers the system time and 
number of disk blocks in each account that is in the data file 
created by ACCGWM.BAS. The program reads thru the data 
file to get the device and ppn of the account and then uses 
the read and reset accounting sys call (Prog Man 7-89) to 
read the accounting information from the system. This in¬ 
formation is accumulated in the data file after the system 
data is zeroed. The program then goes thru the account ac¬ 
cumulating disk blocks returned by the disk wild card direc¬ 
tory lookup sys call (Prog Man 7-100). The total disks blocks 
in the account is added to the data file and the sample count 
in the file is incremented as well. On our systems we run this 
program every night to allow us to get a 'reasonable' aver¬ 
age disk block number. 

The MONTH.BAS program reads the data from the disk 
file created by ACCGWM.BAS and prints it out in either ppn 
or client code order. This program will also allow the user to 
zero out the data at the end of a billing period. The user can 
also request that the program print the passwords on the 
report if that is required. 

The PASWRD.BAS program allows the user to change 
his/her password at any time without the need to contact 
the system manager. This also means that the responsibility 
for account security is now on the user, where it should be. 
This ability would shake up some shops because there 


maybe times when someone in Data Processing may need to 
get into the user account and getting the password could be 
a problem. In a later section this problem will be addressed 
as to my solution to the problem. 

The next section of this article will deal with modifi¬ 
cation to the DEC CUSPS that I have made to control use of 
the system as well as measure what the system is doing. 

The first modification that was made was to the 
LOGIN.BAS program to add special features for ease of 
system use. There are a number of features that were added 
so I will just list them with text to explain what they are and 
why they were made. 

1. The first change to the program was to force the user to 
see the $NOTICE.TXT file, if there is one, all the time. 
This was done to prevent users who always use '/' on 
login from missing important notices. I think a better 
way would have been to print a message that there was 
a notice on file and maybe even print the first line of the 
message so if the user had already read the message 
they need not read it again. 

2. The next change was to allow the programming depart¬ 
ment the ability to get into user accounts without know¬ 
ing the password. On our system all of our programmers 
are priviledged users, even though this is not the usual 
case the ablity to move into other account is a requirment 
of most programming departments. What was done was 
to create three super passwords with certain abilities to 
each. There is one that will let you into any non-privileged 
account, one to let you into any priviledged account 
other than those connected with system management, 
and the last one will let you into any account on the 
system. Now I realize once you have let a programmer in¬ 
to a priviledged account they could write a program to 
read passwords from the system, but in a reasonable 
shop this may be something you could live with. With 
this patch just for non-priviledged accounts you could 
then live with users controlling their own passwords. 

3. The next change was build a crude auto-baud feature in¬ 
to the program for dial up lines. This only affects logged 
out users on dial-ups. When the line first comes active 
the line is set up to come up at 1200 baud with the 
'/RING' option of TTYSET since the fastest dial-up here is 
that speed. The keyboard is then opened binary mode 
and the user must type CTRL/C, the code then checks 
the buffer for a CHAR$(3%) and if found then the speed 
of the line is correct, otherwise the line speed is changed 
to 300 baud and the user will have to type CTRL/C 
again. The same check is made and if the speed is not 
correct then the line speed is set to 110 baud and then 
the program continues at the logged out entry. This 
patch means that the user will have to type CTRL/C at 
most two times to set the line speed since I only support 
the three speeds. 
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4. 


5 . 


The following is a list of addtional pro¬ 
grams and patches to increase the flexability 
of the system. 

1. ERRDET.BAS 

1. This program was modified to print 
the file name and information in the 
FCB and WCB if both were available. 
This allows me to find out what file 
may have a bad block and what the 
block is. 

2. BATCH.BAS 

1. These programs were modified to only 
run from the ppn where the programs 
are compiled. This was done to prevent 
the spread of works files into full ac¬ 
counts as well as prevent unauthorized 
personnel from starting batch 
spoolers. 

3. QUE.BAS 

1. This program was modified to prevent 
the Queueing of batch streams by non¬ 
operations personnel. We have 24 hour 
coverage from Sunday midnight to Fri¬ 
day midnight and the operations de¬ 
partment controls all the scheduling. 
To allow for weekend system use the 
patch allows all users to queue on 
Saturday and Sunday. This patch does 
not affect any queues that are done 
from a batch stream. 

4. SPLRUN.BAS 

1. This program was modified to skip 
sending the device hung message if 
nothing has been printed yet. This was 
a request from our operators and just 
keeps the OSC from getting extranious 
messages. 

2. This next patch was made to help a 
system manager charge back for paper 


Clata@(o)[u]i^[iY computer corporation 

4740 Dwight Evans Road • Charlotte. North Carolina 28210 • 704/523-8500 
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Since use of our dial-up is critical at night LOGIN was 
changed to prompt for a special password on dial up 
lines after 4:30 pm. This password is set up to 
automatically change on a daily basis so even if you give 
out the password it will only be good for one day. 
There has been a lot of talk about quota enforcement on 
RSTS/E and how it should be done, but none of the solu¬ 
tions seem to be feasable without massive changes to 
the system. My solution for what ever it is worth was to 
enforce quota on login as well as logout. The program 
standardlly enforces logout quota, so all I had to do was 
add the login quota check. This is set up so that if an ac¬ 
count is over quota then no further users will be able to 
sign into the account. If the user does not sign off and 
Since use of our dial-up Is critical at night 
LOGIN was the system is shut down then 
they will not be able to sign back in. The 
user would then have to contact someone 
in D.P. to get there account cleaned up. 

This has been very effective for us. 


usage. The program now creates a file with the 

following information in it 

1. The full file name of the file being printed. 

2. ppn of the Queuer. 

3. Form name. 

4. Date Queued. 

5. Time Queued. 

6. No. of Pages (if spooler started with NOFORM) 

7. No. of Blocks 

8. Job name 

The file created by SPLRUN.BAS is named according to 
the receiver ID of the spooler and is opened in the account 
that the spooler is running out of. This file or files, if you 
have more than one printer, is read and combined into a 



The DS120 Terminal Controller makes your LA36 
perform like a DEC writer® III. 

The Datasouth DS120 gives your DEC writer® II the high speed printing 
and versatile performance features of the DEC writer® III at only a frac¬ 
tion of the cost. The DS120 is a plug compatible replacement for your 
LA36 logic board which can be installed in minutes. Standard features 
include: 


• 165 cps bidirectional printing 

• Horizontal & Vertical Tabs 

• Page Length Selection 

• IIMSOO baud operation 

• 1000 character print buffer 

• X-on, X-off protocol 

• Self Test 


• RS232 interface 

• 20 mA Current Loop interface 

• Top of Form 

• Adjustable Margins 

• Double wide characters 

• Parity selection 

• Optional APL character set 


Over 5,000 DS120 units are now being used by customers ranging from 
the Fortune 500 to personal computing enthusiasts. In numerous instal¬ 
lations, entire networks of terminals have been upgraded to take advan¬ 
tage of today’s higher speed data 
communications services. LSI 
microprocessor electronics 
and strict quality control en¬ 
sure dependable performance 
for years to come. When ser¬ 
vice is required, we will 
respond promptly and effec¬ 
tively. Best of all, we can de¬ 
liver immediately through 
our nationwide network of 
distributors. Just give us a 
call for all the details. 
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master file by the program SPLPUF.BAS. How this master 
file is used is up to the system manager. The recommended 
procedure would be have all queues be done with a job name 
describing what department the report is for and what 
form the report is being printed on. In our case we use the 
first three characters of the job name for the department 
and the last three for the form being used. This allows the 
master file to be sorted by job name/file name and then a 
report printed breaking on change in file name then break¬ 
ing on change in form type and then breaking on depart¬ 
ment. This report can then be broken apart and then sent to 
the respective departments to show their usage. 

The last program that will discuss is the program we 
use for our weekly backup disk to disk. Our poiicy is to use 
SAVRES on Tuesday. Wednesday, and Thursday nights to 
backup the system. All of these backups are done in IMAGE 
mode disk to disk. Since the directories on RSTS/E system 
seem to get very disorganized in a short period of time, the 
ability to rebuiid the directories on a regular basis is bene- 
ficiai. The program is set up to run on systems with at least 
three drives of similar capascily. The operator is prompted 
for the disk being backed up and the drive to write to. The 
destination drive is then locked and an attempt is made to 
dismount the pack in the drive, any failures are reported to 
the operator with appropriate corrective measures. To in¬ 
sure that the wrong pack is not mounted the program re¬ 
quires the the pack to be written to has the same pack ID as 
the source pack. When the correct pack is mounted then the 
program opens a PK and starts a dialog to copy the source 
disk to the output disk. The dialog starts by running 
DSKINT.BAS to clear the pack of information and then using 
UTILTY to mount the pack. After the pack is mounted the 
program MAKMFD.BAS is run to create a MFD on the output 
pack with the accounts in ascending order. The copy is then 
done by using PiP.SAV running at 28K to speed the transfer 
of data. When the copy is complete the pack is dismounted 
and the operator is requested to put the original pack back 
in the output drive. This proceedure is not the best method 
for backup but the UFD’s seem to be in good shape after the 
proceedure. With this program we can copy four 300 mb 
disk drives in just under three hours. 

These changes have been made and the programs writ¬ 
ten to satisfy the demands of managment, but they also 
serve the D.P. department and the user. I hope that this 
kind of information is of interest to you the reader. 
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LETTERS to the RSTS Pro .,. 

... continued from page 6 

Since we had the older version 11/34 (as 
opposed to 11/34A) we were informed that DEC 
cache was not compatible. Hence we purchased an 
ABLE CACHE/434 and installed it in late 1978. 
Installation was a simple matter of removing the 
UNIBUS jumper between two backplane sections 
and replacing it with the ABLE CACHE/434 
which consequently occupied no backplane slots. 

A word of warning is appropriate here - the only 
memory that wil be cached must physically lie 
between the CPU and the ABLE CACH 434. If 
enough backplane slots are available to permit all 
memory to be installed between these two compo¬ 
nents, there is no problem. Otherwise, the cache 
will not be used to its fullest capacity. 

We did not perform extensive bench marking, 
however we observed substantial improvements in 
certain operations. For example, compiles and 
task builds of BASIC PLUS 2 programs were per¬ 
ceived to decrease from 7 CPU minutes to 4.5 CPU 
minutes. We recognize that this is not an especially 
significant example since task building may not be 
representative of general system operation. How¬ 
ever, since we have been plagued with long task 
build times, this improvement was viewed with 
some enthusiasm. 

General system response was observed to 
improve somewhat (a very subjective statement) 
but no quantitative measures were taken. In retro¬ 
spect, a careful analysis of STATUS reports before 
and after should have been performed. 

I am not especially optimistic about the cost 
effectiveness of adding cache to an 11/34A using 
RSTS since most systems of this type are disk 
bound due to heavy swapping requirements rather 
than CPU bound. 

A careful analysis of STATUS or STATS 
reports or VT50PY during heavy usage periods will 
probably show high “lost time” figures. These fig¬ 
ures will not be substantially improved by adding 
cache. It is possible to relate the lost time figures to 
the amount of swapping being performed. 

This may be accomplished by determining the 
number of swaps over a period (say 60 seconds) 
and the number of blocks swapped. The total time 
used for swapping will be: 

T = # swaps X access time + # blocks x time to 

transfer I block 

There are only two ways to reduce this time T: 

1) to add more memory (not often possible on 
an 11/34 A) 

2) use a faster swapping medium. 

Solution 2 can be explored if there are faster 
disks available than those currently being used for 
swap files. 

We investigated the possibility of using the so 
called “solid state disks” but rejected that approach 
as not cost effective for the following reasons: 

1) The data transfer time represents a significant 
portion of the swapping time, T (particularly for 
systems with BASIC PLUS 2 jobs, ie. larger than 
16 K swap max). 

A glance at the specifications for the faster 
disks (RP06's and RM02’s) will show that their 
transfer rate is similar to that of a ‘’solid state 
swapping disk”. 

2) Although the access time for a ‘’solid state 
swapping disk” is substantially less than for an 
RP06 or RM02 (1 micro-second vs. 50 milli¬ 
second) this does not have a large effect on the 
overall swapping time T. 

The “solid state swapping disc”, however, 
would be an excellent choice for heavily used read 
only files (such as tables), or heavily used tempor¬ 
ary files (such as work files). 


3) Swapping time T will be somewhat smaller 
for a “solid state swapping disk” but the high cost 
of this type of storage will generally preclude the 
possibility of placing all swapping files on such a 
device. 

We were able to test this theory earlier this 
year when we added R P04 drives to our system and 
moved our swapping files from RP03 drives to the 
RP04 drives. The transfer rate improvement of a 
factor of three resulted in lost time dropping to 
about a third of our original lost time. 

If Mr. Horst’s system is already using fast disk 
drives, he should try all the system optimization 
procedures available and as outlined in a recent 
RSTS Professional article by Dave Mallery, 
entitled “A RSTS Performance Checklist”, V.2, 
#4. 

In summary, a PDP I1/34A using RSTS with 
twenty-five jobs is probably swap bound and 
would benefit more from faster swapping facilities 
than from cache memory. If no faster swapping 
facilities are available, I believe Mr. Horst would 
be better served by saving his money until he can 
purchase an 11/44 with more memory. We have 
just done this and our response improvement is 
substantial. 

I would be pleased to make my analysis of‘’solid 
state swapping disks” versus conventional disk 
drive available if any one is interested. 

We are delighted with the RSTS Professional 
magazine and look forward to each new issue. 

Yours truly, David J. Leffen, Ph.D., P.Eng. 

Vice-President' 
G.K. Fleming & Associates Ltd. 

Thunder Bay, Ontario 
Thank you for your thoughtful response. We are 
looking forward to publishing the article (your 
"analysis”) in a future issue. 


Dear Editors and Staff: 

Congratulations on your anniversary! Please 
accept this token of appreciation from all of us here 
at Software Techniques. 

You all have something to be very proud of You 
have taken an idea and turned it into a reality, 
building something of value where there once was 
nothing at all. 

It has been a pleasure to work with you over the 
last year. May you have many more happy 
anniversaries. 

Sincerely, Rick 
And all of us at Software Techniques 
Los Alamitos, Calif 
Thank you, Rick and staff. With friends like you 
we're bound to succeed. 


Dear RSTS Semi-Professional, 

Tri-State is not renewing its subscription to your 
magazine. We have a VAX now, and can’t wait til 
the 11/70 goes out the door. Maybe it will find a 
nice home in the back of a Mom-and-Pop Drug 
Store or somewhere like that. 

Whenever 1 think of your magazine, I see in my 
mind that editorial on page 4 of the Feb/ March 
1980 issue. Mr. Mallery can keep his little RSTS 
machine forever, I don’t care. But we are happy to 
leave it for good. 

In 20 years, when most of the world has pro¬ 
gressed even further. I’ll think of you, solde*^ing 
your own boards, keeping those 5 or 6 users happy. 

Sincerely, Phil Jamieson 
Data Processing Manager 
Tri-State G&T 

Good Luck with your VAX. We think you'll be 
interested in the VAX-SCENE. published, of 
course, six times a year in the “RSTS PRO.” 


My good friend David tells me of a lovely way to 
soft crash any RSTS machine ... 

All you have to do is to poke the address of your 
clock interrupt routine, and this will cause a crash 
the next time the clock ticks (ie, within a 50th/60th 
of a second). 

Hello 1,1 
(Password) 

Switch BASIC 

w$ = SYS(CHR$(6%)+CHR$(-6%) 

+CH R$(64%)+CH R$(S WAP%(64%)) 
Please note that location 64 (decimal) is the 
address for a LINE clock, and that anyone with a 
PROGRAMMABLE clock should poke at loca¬ 
tion 68 (decimal). Bye Y, Peter Dick 

The enclosed is from the September 1981 New¬ 
sletter of the DECUS RSX UK SIG. 

1 think it deserves a larger readership. 

It is with great pleasure that we announce a new 
product — FINS-11. This product is a special hard¬ 
ware/software integration package developed by 
DEC and Tidewater Research Systems to produce a 
militarized version of the PDP-11 for use by the U.S. 
Navy. It is fully submersible and can travel at 15 knots 
due to some recent hardware breakthroughs we have 
made which resulted in the TUNABUS. FINS-11 also 
features the OCTOBUS which is a high speed bus with 
8 ports. 

During highly rigorous and lengthy field tests, dur¬ 
ing which time FINS-11 terrorized twelve towns of the 
Rhode Island coast and at Cape Cod last summer, the 
Underwater Research labs used FINS-11 to do pro¬ 
cess control on clam beds using special commuica- 
tions software called DECwet-11. The Navy particularly 
liked the FINS-11 D/A converter ROM package 
which plays “Anchors Aweigh” whenever it comes out 
of the water (Richard Rogers’ “Victory at Sea” is also 
available but requires the special bouyancy option for 
the ROM). 

Field Service has been attending special classes for 
SCUBA training off Martha’s Vineyard to enable 
them to tackle support of FINS-11. FINS-II is sup¬ 
ported in HOSS by Martin Minnow. 

Special hardware features of FINS-I 1 include: 

• High powered cooling fms 

• Bubble memory 

• SQUID ink injection line printer 

• Micro-fish reader (GUPPY) 

• Admiral mode replaces Kernel and Supervisor 
mode. 

Software features of FINS-11 include: 

• A very forgiving operating system — COS-11 
(Chicken of the Sea), written in CORAL with real¬ 
time extensions 

• Mackeral-11 assembler 

• FILET file transfer system 

• A powerful user interface, COD (Command Opera¬ 
tions Decoder) 

• An Unlimited freshwater node pool 

• STARFISH - VAX emulator 

• The block structured ALGAE-60 high level 
language 

• CRABS (Comprehensive Random Access Batch 
System), which allows jobs to be spawned up to the 
batch stream 

• The heart of COS-11 is the ATOLL scan which will 
trap tasks that are floundering or wading for nodes. 

• Autopatch is accomplished by running SU BS (Sys¬ 
tems for Updating Binary Software) in amphibious 
mode. 

One of our European field test sites was Jacques 
Cousteau, who ran a special version of the system, 
called OYSTER, which was written in PEARL. Since 
he is such a distinguished user, we substituted John 
Denver’s “Hail Calypso” for “Anchors Aweigh”. 

Yours as usual, Peter Dick, Prop. 
Silver Programs, London, England 
Beautiful. Peter. Thank you. • 


AT LASTIir 

The RSTS PROFESSIONAL will be 
published six times a year. 
February. April. June. August. 
October. December 
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DONT 

BACXUR 


If your system backup puts everything else on the back 
burner, you need SAVER for RSTS/EJ^ It’s the only 
disc to tape backup that doesn’t monopolize your 
PDP-11 system resources. 

SAVER restores files easily, and creates optimally- 
structured discs. And it’s supported by Data Process¬ 
ing Design, developers of WORD-11 and other fine 
products for DEC’S family of mini-computers. Inexpen¬ 
sive at $850.00. Call or write. 



Data Processing Design, Inc. 


authorized! 


k r^PiJltROTSTRIBUIOR 


Corporate office: 181 W Orangethorpe, Suite F, 
Placentia. CA 92670 (714) 993-4160 
New York Office: (212) 687-0104 
Washington, D.C. Office: (301) 657-4098 
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BENCHMARK DIBOL VS. BASIC+2 

PDP/11-RSTS/E Environment 

Analysis Conducted by Frank Metcalf. ICS Computing. Ltd.. UK 


Benchmark Overview 

The following benchmark results show advantages for 
each language (BP2 and DIBOL). However, the more impor¬ 
tant advantages appear to be in favor of BP2. 

Two of the more important considerations in a RSTS/E 
environment are disc accessing and CPU usage. In each of 
these areas. BP2 was clearly the most efficient. Also, job 
mix is of major importance in a RSTS/E environment. BP2 is 
clearly the best performing language. 

The above points should be key considerations in 
evaluating languages and operating systems in any environ¬ 
ment where development and production are on-going. 

The general feeling, prior to the comparison, was that 
BP2 was a better language for the RSTS/E environment, 
which the benchmark has proven. 

The attached should provide sufficient detail to support 
the findings. 

Comparison of DIBOL vs. BASIC+2 

System compared: Supplier masterfile maintenance 1300 

records on VENMAS. 

1. COMPARISON OF DISC ACCESSING 

The figures represent the disc accessing counts for 
the data and index files only. Directory. DEVICE. DDF and 
overlay accesses are ignored. 

Each activity was performed 5 times. 


Activlly 

Reads 

Accesses 

Blocks 

Writes 

Accesses 

Blocks 

Total 

Accesses 

Search fails 

BP2 

12 

22 

— 

— 

12 


DIBOL 

157 

157 

2 

2 

159 

Inserts 

BP2 

28 

54 

5 

10 

33 


DIBOL 

240 

240 

18 

18 

258 

Amends 

BP2 

17 

32 

5 

10 

22 


DIBOL 

192 

192 

8 

8 

200 

Deletes 

BP2 

17 

32 

5 

10 

22 


DIBOL 

202 

202 

18 

18 

220 


For the DIBOL systems, no count was taken of the 
accesses required to sort the index to include recent in¬ 
serts or to remove deleted records from the data file. 

The amount of disc usage has an important effect 
on machine performance. Thus, the above results point 
very much to BP2. 

2. COMPARISON OF CPU USAGE 

Each activity was performed 10 times. 


Activity 

BP2 

DIBOL 

Inserts 

6.6 

21.0 

Amends 

6.4 

10.5 

Deletes 

6.0 

7.0 


For the DIBOL system, no count was taken of the 
CPU time required to sort inserted records into the index 
or to remove deleted records from the file. 

This also points to BP2 and, as with 1, is an impor¬ 
tant factor on the 11 /70’s. 

3. COMPARISON OF TSK FILE SIZES 


1 

i' 

i 
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Basic Plus 2 systems: 


VENMNT. TSK 
30L systems: 

161 

(176) 

VENMNT. TSK 

25 

( 32) 

VENPRT. TSK 

23 

( 32) 

ORGVEN. TSK 

22 

( 32) 

VENCNT. TSK 

7 

( 16) 

SRTVID. TSK 

27 

( 32) 

111 

_ 


Total 

104 

(144) 


The figures, in brackets, represent the total blocks 
allocated, allowing for a disc clustersize of 16. 

The file size above for BP2 will not decrease 
significantly for even very small programs. However, 
only 1 file is required for a module, whereas, 5 programs 
make up a DIBOL module. Disc space on 11 /70 is not a 
problem, although the size of a directory could be. There 
is probably little advantage either way. Also this has a 
less important impact on performance than either sec¬ 
tion 1 or 2. 


4. COMPARISON OF FILE SIZES 

RMS uses more space to hold indexes and allow for 
inserts (depends on packing density). 

RMS packs numeric fields more efficiently (in 
binary). 

In the systems used for comparison, these 2 factors 
balanced to give equal file sizes. 

However, the number of files in RMS system would 
be smaller since indexes and data files are incorporated 
in 1 file, unlike DIBOL. 


5. COMPARISON OF TASK BUILD TIMES 
Basic Plus 2: 


1 min., 2.9 secs. 

18 mins. 

to build VENMNT.TSK 
DIBOL: 

14 secs. 

3 mins. 

to build VENMNT.TSK 


CPU time 
Elapsed time 


CPU time 
Elapsed time 


6. MISCELLANEOUS 

DIBOL programs are scheduled and run for each 
character entered. This produces (1) a heavy system load 
and (2) delays in echoing characters entered, which is an¬ 
noying to a user. 

BP2 is no more difficult to use than DIBOL. 
although it could take a little longer to learn. 

BP2/V1.6 and V7.0 of RSTS/E have improved Task 
(TSK) file sizes, compilation time and overall perform¬ 
ance. Benchmark times were not run against BP2/V1.6 
and RSTS/E V7.0. 

7. CONCLUSION 

BP2 is clearly more suitable to a RSTS/E machine 
than DIBOL. The figures in numbers 1 and 2 indicate con¬ 
siderably more BP2 jobs could be run on the 11 /70 than 
DIBOL. f 


Stocking genuine 
DEC computer 
spares 




Spare Parts for: 

DEC POP Computer Family 
DEC Line Printers 
DEC Video Screens 
LSI-11 
Dthers 


Call Ratdgo, We handle genuine DEC parts manu¬ 
factured by DIGITAL EQUIPMENT CDRPORATIDN. 
We sell at factory prices with FACTDRY WARRAN¬ 
TY Radgo is stocked and staffed to help you with 
your requirements for most general purpose K & M 
series and many CDMPUTER SPARE MDDULES 
and CDMPDNENTS We also stock a large assort¬ 
ment of CDMPUTER SUPPLIES 


Radge Bales 

To order or for free catalog call: 

1-80D-543-1 986. Dhio customers phone 
1 513-752-6880 

3988 McMANN RD . CINCINNATI. DH 45245 
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Hardware Accessories 
For DEC Equipment Users 


C'XX Overtemperature Protection System 

Standard DEC PDP 11, VAX, and System 10-20 ma¬ 
chines are NOT adequately protected from equipment 
damage due to high machine room temperatures. 

This unit provides aural warning signal and total system 
power shutdown with two customer adjustable tem¬ 
perature limits and approved interface to standard 
DEC AC power control system. 


B-11 CPU Speedup for PDP 11/45 and 70 

This timing generator modification allows 11/45 or 
11/70 CPU instruction throughput rate to be increased 
by up to 15%. 

Both products are attractively priced, install in a few 
minutes with no special tools or skills, and are allowed 
by DEC Field Service in contract systems. Call or write 
for further information. 


Nassau Systems 

PO. Box 19329 
Cincinnati, Ohio 45219 
(513) 231-1283 

DEC, VAX, and PDP are trademarks of Digital Equipment Corp. 
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OVER THE I/O PAGE 

(or, ‘A Trip Through Magic Kingdom ...’) 

By Bob "MACRO MAN" Meyer 


The following article describes in detaii a method of ac¬ 
cessing the i/0 page of the PDP-11 while running under 
RSTS from a user-mode Macro program. Also weil cover 
some possible uses for this type of programming, as weil as 
some potential dangers. 

This project came into existence a few years ago when 
a good friend of mine (he wishes to remain nameiess, so 
we il call him by his alias. ‘Farquartj and myself decided 
how nice it wouid be if we could peek’ into XBUF. We realiz¬ 
ed very soon that this was not at all feasible using existing 
techniques. "But, Farquart," I exclaimed, "RSTS certainiy 
has access to the XBUF area, why can't we?". In other 
words, what is the difference between the Monitor access¬ 
ing memory, and the user program accessing memory? 

The answer: Memory Mapping. 

In order to look around the system s memory at will, 
the user program must have the ability to re-map itself as 
needed; And in order to re-map one's own Job image, we 
must have access to the Memory Management APR's. The 
foilowing examples will demonstrate how this can be done 
on any RSTS machine. I would like to recommend, however, 
that you read this article throughly before trying any of this, 
and if you're not intimately familiar with the PDP-11 
Memory Management hardware, do your experimenting 
with a stand-alone system. 

Building the Library 

The first step is to build a resident library (resiibs must 
be genned in. of course) with a length of 4K. This library will 
then be placed at the very top of the system's memory, and 
with a gentle shove', will land directly over the I/O page. 
The program below will do just fine: 

TITLE USR07 
.IDENT /1.0/ 

USR07: .BLKW 4096. :BLOCK OUT 4K WORDS 

.END 

to assemble: 

MAC 

MAC>USR07 = USR07 
MAOIZ 

now to link up the reslib: 

TKB 

TKB>USR07/-HD=USR07 

TKB>/ 

ENTER OPTIONS: 

TKB > PAR = USR07:160000:20000 iSTARTING ADDR & LENGTH OF UBRARY 
TKB >STACK = 0 :DONT ALLOCATE ANY STACK SPACE 

TKB>// 

and finally, we create the library image file: 

RUN SMAKSIL 
[maksil's header] 

Resident Library name? USR07 

Task-build Resident Library input file <USR07.TSK>? <CR> 

Include symbol table (yes/no) < Yes>? NO 
Resident Library output file <USR07.LIB>? <CR> 

USR07 build In 4 K-words. 0 symbols in the directory 
USR07.TSK renamed to USR07.TSK<40> 


We now have a USR07.LIB file in the current account. 
To put up this library we type: 

UT ADO UBRARY [p.pn]USR07>40>/ADDR;xxx/STAY/RW 

where: 

[p.pnjis the current account, and xxx is the amount of 
memory on your system minus four so if your system has 
512K Words, specify '/ADDR:508'. 

Finaily, we convince RSTS to iet our library live over 
the physicai I/O page of the system. First we log into [1,1] 
and run ODT: 

RUN $ODT 
[odfs banner] 

File < Memory >? <LF> 

Type the letter 'C to get a listing of ali monitor tables, 
watching near the bottom for 'RTSLST'. 


J0BCNT072S64 
RTSLST 056306 

(note: these vaiues are very system dependant) 

The iist of Resident Libraries, 'LIBLST starts just after 
'RTSLST'. So in order to access the first entry in the RESLIB 
list on this system, we would look at location 56310: 

•56310/006S40 

However, we're interested in the last library in the iist 
(the one we just added:USR07). so we must traverse the 
library links as follows (in this case, we have two other 
libraries before USR07): 

•56310/ 006540 @ 

006540/ 005200 @ 

005200/ 015600® 

015600/ 000000 

WeYe now at the start of the memory control sub¬ 
block for the third library on the system, (see common.mac 
for more details.) To verify this, we can check the name of 
the library: 

015600/ 000000 <LF> 

015602/ 103112 %USR :use %' to get radSO string 

015604/ 140512 %07 

If you get the library name in the second two locations 
of the control block, you're in the right piace. If not, back 
up and start over. 

Now that we've found the entry for our library, we can 
change it's physical start address so that the Monitor 
thinks' it exists over the I/O page: 

15620/ 056400 < I/O page address><CR> 

where <i/o page address > is 177600 for the 11/70 & 
11 /44, and 7600 for aii others. 

Accessing the Library 

A simple way of trying out this new Resident Library 
is to link RSXODT with it. and nose around a bit: (you 
shouid be somewhat famiiar with ODT at this point) First 





HAVE WE GOT 
A MESSAGE FOR YOU! 


INTECOM brings to RSTS users an extremely versatile message system. Much more than 
'electronic mail,' INTECOM is an application package designed expressly for controlled user 
communications, correspondence management, and item scheduling. 

INTECOM can be used for short, paperless office memos; for lengthy, printed reports; or for 
any text file exchanges. INTECOM interfaces with the editor of your choice for complete text 
formatting capabilities. 

A built-in calendar function permits you to date messages for automatic future transmission to 
any valid INTECOM user — including yourself. Incoming messages may be placed on hold for 
specific periods of time. Communications on hold disappear temporarily from your 'in-basket' 
and re-appear on the scheduled reactivation date! INTECOM even notifies the user's 
designated terminal when incoming messages arrive. INTECOM's unique message labelling 
feature permits you to store your own key identifiers for message retrieval. You can identify 
messages by keyword, sender, receiver, date, time, or subject. 


INtelligent TExt COMmunicator Specifications 


user name logicals 

user/account validation 

menu operation with full HELP text 

IN, OUT, and HOLD transaction databases for each user 

message reply routing 

text file or text record manipulation 

hardcopy queueing (message selectable) 

message labelling for keyword retrieval 

(incoming and outgoing) 

full message journalling (user selectable) 

message waiting light for VT100 (user selectable) 


bell notification of message receipt (user selectable) 
incoming message forwarding with supplementary text 
message sending to multiple users 
message serialization, date and time marking 
dated message sending (relative days or absolute date) 
dated message suspensing (relative days or absolute date) 
multiple account operation for each user 
text editor interface from menu control 
(user selectable) 

message subject scanning with selective read 
incoming, outgoing, and dated message reporting 


INTECOM's features can be applied to every application environment. Contact us for the impressive details. 
INTECOM is being offered at an introductory price $2880. Demonstration plans are available. 

INtelligent TExt COMmunicator ... 

another QUALITY software product from: 


North County 
Computer Services, Inc. 

2235 Meyers Ave., 

Escondido, California 92025 
(714) 745-6006, Telex: 182773 


(•(HQQOai 

■00C§(Da 
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RSTS is a registered trademark of Digital Equipment Corporation. 

© 1 981 Logic extension Resources. CIRCLE 76 ON READER CARD 
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DEC SYSTEM SUPPORT 

RESOURCE-11 offer’s complete system support for OEMs and end users of Digital Equipment 
Corporation (DEC) systems. Professional evaluation of your needs before and after your investment. 
RESOURCE-11’s technical expertise encompasses the entire PDP-11 and VAX/VMS product iine. 

• DISK SAVE & COMPRESS (DSC) 

DSC permits pre-extension of RSTS/E UFDs, data compression, and manuai placement of files 
for disk seek optimization on a total system scale. 

• WORD PROCESSING 

Fully supported packages under RSTS/E, RSX and VMS available for large, small and stand¬ 
alone systems. Easy preparation of a wide variety of documents such as letters, reports, 
contracts and technical material with ease. 

• SYSTEM EVALUATION & OPTIMIZATION 

Step by step evaluation of future and existing systems. Let RESCURCE-11 maximize your hard¬ 
ware and/or software investment for maximum performance and usability. 

For complete details, contact us at: 

RESOURCE-11 

19841 Cochrane Way 
Gaithersburg, MD 20789 

(301) 258-9606 CIRCLE 77 ON READER CARD 


Don’t buy a VAX . . . 

Call MACRO MAN 

for superior performance 
RSTS internals 
custom Macro programming 
RSTS or 11/M 
SPECIAL OFFER 

LEARN MACRO FROM THE MASTER! 

One week course in Philadelphia — 
call for details. 

MACRO UTILITY LIBRARY 
build your own! — call for information 

Bob ‘Macro Man’ Meyer 
9 Lockwood Avenue 
Fieldsboro, NJ 08S05 
609-298-9127 
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create a small macro program consisting of nothing but a 
Breakpoint instruction: 

.ITTLE JUNK 
.IDENT /JUNK/ 

JUNK: BPT 

.END JUNK 

and assemble: 

MAC JUNK = JUNK 

and link with the resident library: 

TKB 

TKB > JUNK/DA = JUNK :/DA CALLS IN RSXODT 

TKB>/ 

ENTER OPTIONS: 

TKB > RESUB = USR07/R0 :SPECIFY READONLY ACCESS FOR NOW 

TKB>// 

and we’re ready to run: 

RUN JUNK 
ODTJUNK 


If all was done correctly, examining any address from 
160000 thru 177776 should return data from the I/O page. 

If you are f amilar with any particular device and its opera¬ 
tion. you may wish to examine its registers to verify that this 
really works. One simple test is to use the console DL CSR’s: 


177560/ 000100 
177562/ 000215 
177564/ 000200 
177566/ 000000 


;RECIVER INTERRUPT ENABLE’ BIT ON 

:LAST CHARACTER RECEIVED (< CR> IN THIS CASE) 

;TRANSMnTER DONE’ BIT ON 

:XMIT DATA REGISTER (ALWAYS ZERO WHEN READ) 


And if ODT was task-built with the 7RW’ switch on the RE- 
SLIB option, you can actually write a character out to the device: 


177566/ 000000 101 <CR> 

This will write an upper-case *A’ to the console terminal. 
That's all for now; be careful and enjoy. 


(P.S.: XBUF Display will go on sale soon! Contact Macro Man for details.)* 
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TRADE IN 

and SAVE! 


^i^SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

AMERICAN will credit your account with the full trade in price for 
your olo DEC equipment to be used as payment for: 

NEW DEC . 11/23, 11/44, VAX 11-750 or 11-780 

NEW DEC . .... Disk or Tape Drives or other Peripherals 

NEW DEC . . . . . Terminals 

USED DEC . . . . . CPU's, memory. Peripherals or Terminals 

DEC SOFTWARE _drs,model,pac i,ii,ils,pacs,p-stat 


All models of DEC 11, VAX, 
Peripherals & Terminals in Stock 
_ Ready to Ship! _ 

CALL 617 - 437-1100 

For Our Latest Listing of DEC CPUs & Peripherals. 

AI^AMERICAN USED COMPUTER 

P.O. Box 68, Kenmore Station, Boston, Massachusetts 02215 

★ ★ 

Leaders in DEC Hardware Since 1968 

Registered Trademark of Digital Equipment Corporation 
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RSTS/E MONITOR INTERNALS 

Part 4 

By Mike Mayfield, Northwest Digital Software. Box 2-743, Newport. WA 99156 


This is the last article in my series on RSTS/E monitor 
tables. By this time you should be getting a better 
understanding of how RSTS works inside and where to find 
the information you need for specialized systems programs 
and system tuning. Now all of the monitor's secrets are just 
a PEEK away. 

This last article covers the data structures used by send 
receive and CCL commands. These data structures are the 
RIB and PMB for send receive arid the CCL block for CCL 
commands. 

5.0 SEND RECEIVE 

The send/receive capability of RSTS allows information 
to be sent between programs. The data structures required 
to provide this capability are the receiver ID block (RIB) and 
the pending message biock (PMB). 

Each program that has declared itself to be a receiver is 
allocated a receiver ID block. This ID biock is pointed to by 
the job’s second JDB. 

The receiver ID blocks on the system are linked 
together in a list of message receivers. When a message is 
sent this list is searched for the specified receiver. 

Each message that is waiting to be received has a pend¬ 
ing message block (PMB) associated with it. The PMBs for 
all of a particular receiver's pending messages are kept in a 
linked list pointed to by the word S.MLST in the receiver’s 
RIB. The list is kept in first-in first-out order. 

The foilowing figure shows the relationship between 
the RIBs and the PMBs: 


I III 

SNtLST.>| RI6 1->1 PIB I 

I III 

I I 

I . 

I I 

V V 


I II II I 

I PMB I->1 PP8 I >1 PMB I 

I II II I 

For more information on the contents of the receiver ID 
block and the pending message blocks see the “RSTS/E Pro¬ 
gramming Manual" and “Network Programming in BASIC- 
PLUS and BASIC-PLUS-2’’. 

5.1 RIB — RECEIVER ID BLOCK 
When a job declares itself a receiver (using the .MESAG 
monitor directive or SYS(6 + 22) in BASIC-PLUS) a receiver ID 
block (RIB) is allocated. The receiver ID block contains all the 
information necessary to allow receipt of intra-CPU and 
inter-CPU messages. The RIB is pointed to by the word 
J2MPTR in its owner’s JDB2. 


In addition, all the RIBs in the system are linked 
together in a list. The first element in this list is pointed to 
by the location SNDLST. Since the receiver name ERRLOG is 
always present in the system, SNDLST will never be 0. 

The format of a receiver ID block is as follows: 



1 

Link to next RIB 

I C 

S.LINK 


1 ' 
1 


I 2 

S.RCIC 


1 

1 

Receiver ID 

I ^ 



1 

1 

( 6 bytes c f A SC 11) 

I ^ 


S.03JT 

1 

9 1 

Object type | Job number *2 

I 8 

S.JBNC 


1 

1 

Unused | Access flags 

I 10 

S.ACCS 


1 ■ 
1 

Buffer maxi mum 

1 12 

S.BMAX 

S.MCM 

1 

15 I 

Pending count | Message maximum 

1 u 

S.mmax 


I * 
I 

Pointer to first PMBx if any 

1 16 

S.MLSI 


I' 
I 

Pointer to last PME/ if any 

1 18 


S. LCM 

I 

I 

Link count | Max link" count 

1 2G 

S.LMAX 


I 

I 

Pointer to first logical link block 

1 22 

S .LLST 


I 

I 

Pointer to lest locical link blcck 

1 24 



I • 
I 


1 26 



I 

I 

Reserved fcr network use 

1 28 



I 

I 


1 30 



Offset Symbol Description 


0 

S.LINK 

This word contains the address of the 
next RIB in the linked list. If this is the 
last RIB in the list this word will con¬ 
tain a 0. 

2 

S.RCID 

These six bytes contain the receiver 
name as six bytes of ASCII. If the 
receiver name is less than six bytes in 
length it will be filled with trailing zero 
bytes. 

8 

S.JBNO 

This byte contains the job number 
times two of the job to which this RIB 
belongs. 

9 

S.OBJT 

This byte contains the object type for 
use in DECNET messages. 

10 

S.ACCS 

This b 3 fte contains the access controls 
for this receiver (see 5.1.1). 

11 


Unused. 

12 

S.BMAX 

This word contains the buffer usage 
restrictions specified at the time the 
receiver was declared. 

14 

S.MMAX 

This byte contains the restriction on 
the number of pending messages 
specified at the time the receiver was 
declared. 
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SYSTEM DEVELOPMENT TOOL FOR RSTS/E BASIC -PLUS 

• Automated Definition of Record Layouts 
• ISAM, Sequentiai, Random, and Tape Files 
• Version 7 RSTS/E Large Fiie support 
• Program generated, RNO compatibie Document Facility 

• Supports numerous Data Types 

• DMS 500/FAM Compatible 


Casher Associates Inc 

1371 Beacon Street • Brookline, MA 02146 


(617)232-9111 
(212) 757-2868 
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15 S.MCNT 

16 S.MLST 


18 


20 S.LMAX 


21 S.LCNT 

22 S.LLST 


24 


26-31 


This byte contains a count of the 
number of messages that are current- 
iy pending for this receiver. 

This word is a pointer to the pending 
message biock (PMB) for the first mes¬ 
sage pending for this receiver, if no mes¬ 
sages are pending this word contains a 0. 
This word is a pointer to the pending 
message biock (PMB) for the iast 
message pending for this receiver, if 
no message are pending this word 
points to S.MLST. 

This byte contains the restriction on 
the number of pending DECNET 
messages specified at the time the 
receiver was deciared. 

This byte contains a count of the number 
of iogicai iinks for DECNET messages 
currentiy pending for this receiver. 

This word is a pointer to the iogicai 
iink descriptor biock for the first 
iogicai iink pending for this receiver, if 
no iogicai iinks are pending this word 
contains a 0. 

This word is a pointer to the iogicai 
iink descriptor block for the last logical 
link pending for this receiver, if no 
logical links are pending this word 
points to S.LLST. 

Reserved for network use. 


5.1.1 S.ACCS — Access Control Bits 

The access control bits contained in S.ACCS have the 
following meaning (see the RSTS/E Programming Manual 
for more information on access control bits): 

Bit Symbol Description 

SA.LCL Local senders may send to this receiver. 


1 

2 

3 


4-6 

7 


SA.PRV Local senders must be priviliged to 
send to this receiver. 

SA. N ET Network senders may send to this receiver. 

SA.ISH Network senders may only send if no 
logical links are already pending (i.e. 
single message mode). 

Unused. 

SA.X0F Receipt of messages from local 
senders is temporarily disallowed. 


5.2 PMB — PENDING MESSAGE BLOCK 

Each message waiting to be rieceived has a pending 
message block (PMB) associated with it. The PMB describes 
the data received for large messages and contains the 
parameters sent for small messages. 

The pending message blocks for each receiver are kept 
in a linked list ordered first-in first-out. The first and last 
pending message blocks in the list are pointed to by the two 
words starting at S.MLST in the RIB for this job (see S.1). 
The format of the PMB is as follows: 


ID 
12 
u 
16 
1 8 
c C 
22 

26 

:2 

30 


FISNjR 5 


Link to noxt Pf'B/ if any 
Contortad pointer to nessag* ouffer 


Sanoer job 9 *2 | ^assoga typa 

Senear 


Unused 

Number of buffers pendini 


Small massage data 


0 

















structured disks for all! 
Announcing 

REACT2.TSK 

• a ‘REACT’ replacement that locates & 
extends UFD’s 

• all standard ‘REACT’ functions (Delete, 
Standard, Enter) 

• user specified location and length for 
new UED. 

• high speed — this product uses software 
developed and licensed by Software 
Techniques, Inc. 

• distributed as an RSX or DP2 task on 9 
track 800/1600 tape 

Introductory Price: ^200.°® 
Single CPU License 

Nationwide Data Dialog 

70 James wa\ 
Southampton, PA 18966 

(215) 364-2800 

Call For Quick Seruice 
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Offset Symbol 
0 PSLINK 

2 P$BUFA 

4 P$’rYPE 

5 P$SNDR 

6 P$SPPN 
8 

10 P$BREM 

12 P$PARM 


Description 

This word contains the address of the 
next PMB in the linked list If this is the 
last PMB in the list it will cotain a 0. 
This word contains the "contorted" ad¬ 
dress of the buffer containing the 
large message data. If the low order 
five bits of the address are zero the 
pointer is to a small buffer. Otherwise, 
the address has been rotated left 
seven bits and points into the extend¬ 
ed buffer area, XBUF. If this word is 0 
no large message data was sent with 
this message. 

'This byte specifies the type of message 
described by the PMB (see 5.2.1). 

This byte contains the job number 
times 2 of the message sender. 

This word contains the PPN of the 
message sender. 

This word is unused. 

This word specifies the number of 
bytes remaining in the message buf¬ 
fer. It can be less than the original 
length of the message if the message 
was too long to fit in the user’s buffer 
on a receive request and truncation 
was not requested. See 5.2.2 for infor¬ 
mation on the buffer format. 

These ten words contain the user 
specified parameters for small 
message send/receive and the net¬ 
work parameters for DECNET. 


Rapidly growing Houston, Texas 
OEM seeking RSTS Programmer/ 
Analysts 

• Suburban location 

• Large data center with five 
11/70’s 

• Data base applications 
development 

• National timesharing ser- 
vices and OEM sales 

For quick consideration call 
collect or send resume to: 

Murray Stinson 

14925-A Memorial Drive, Dept. 389 
Houston, Tx 77079 
(713) 496-0771 




Spartin Systems 
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5.2.1 PSTYPE — Message type 

If DECNET is not used, the message type (P$TYPE) will 
always be -1 to signify local sender message received. 
However, if DECNET is used several other message types are 
possible, as follows: 

Type Description 

— 1 Local sender message received. 

—2 Connect initiate received. 

—3 Connect confirm received. 

—4 Connect reject received. 

—5 Network sender message received. 

—6 Interrupt received. 

—7 Link service received. 

—8 Disconnect received. 

—9 Link abort received. 

5.2.2 Buffer Format 

Each large message is stored in a buffer of up to 516 
bytes using either a block of small buffers or a buffer from 
XBUF. The actual data of the message is preceded by a two 
word header, as follows: 

Offset Symbol Description 

0 This word contains the buffer size, in 

bytes. 
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RSTS SITE MANAGEMENT 
AND APPLICATION 
DEVELOPMENT TOOLS 


□ APC 

an automatic password changer 
that creates meaningful six- 
character passwords and up¬ 
dates the ACCT.SYS file, 
allows selective changing of 
passwords and produces three 
informative reports. 


□ ENCRYPTION ROUTINES 
a site security feature which 
encodes ASCII characters and 
can be incorporated into any 
application where sensitive data 
is processed. Also exists as a 
stand alone program for encod¬ 
ing and decoding entire files. 


□ M/APS 

a menu/authorization proces¬ 
sor and application security 
system that controls user 
access to menus and applica¬ 
tions programs. Uses DEC'S 
VT series CRTs. 


STANDARD SUBROUTINE 
LIBRARY 

callable macro-11 routines that 
perform screen and terminal 
I/O, cursor positioning and 
many other necessary program 
functions, including data con¬ 
versions. 


SOURCE/FILE 
CROSS-REFERENCE (XREF) 
XREF provides cross-reference 
listings which detail the rela¬ 
tionship between source files, 
callable routines, data files and 
task images. 


□ VT100 ACCOUNTING 
CALCULATOR 
a multi-function calculator de¬ 
signed for user's of DEC'S 
VT100 CRTs. Options and 
features beyond the capabili¬ 
ties of the normal Accountant's 
calculator. 


McHUGH, FREEMAN & ASSOC., INC. 
1135 Legion Drive 
Elm Grove, Wisconsin 53122 
(414) 784-8250 
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response to this CCL command. A -1 in this word signifies a 
wildcard extension (ie. LOGIN.*). 

14 These ten bytes contain the CCL command text. The text is 

terminated by a byte containing 255. 

24 This word contains the device name (in ASCII) of the disk 

device that contains the program to run in response to this 
CCL command. A 0 specifies the public disk structure. SY:. 

26 This word contains the device unit number and unit number 

"real” flag. See the discription of the FIRQB in the RSTS/E 
System Directives Manual for more information on device 
naming. 

28 This word contains a copy of the pointer stored in offset 4. 

30 Thiswordcontainstheparameterwordtopasstothe runtime 

system when the program is run. See the .RUN monitor 
directive for more information on the parameter word. 
LAST CHANCE: An updated wall chart showing the linkages between all tables in 
the RSTS/E monitor is available for $2.00. Send your requests to Mike Mayfield. 
Northwest Digital Software. Box 2^43. Newport. WA 99156 ♦ 


A RSTS INTERNALS MANUAL 

BY MIKE MAYFIELD 

More than 200 pages in a binder. 

Published by The RSTS PROFESSIONAL 

Pre-publication price offer of $75 extended to February 1, 1982 

SEND ORDERS TO: 

M SYSTEMS.INC.. BOX 361. FORT WASHINGTON. PA 19034-0361 


Bequest and You Shall 
Beceive Answers. On Line. 

Software for Maniifacturers 

MS-11 Manufacturing 

FS-ll Financial 

□ Inventory Control 

□ Purchasing 

□ Bills of Material 

□ Shop Routing 

□ Work Order Status 

□ Manufacturing Cost 

□ Material Req. Planning 

□ Capacity Planning 

□ Order Entry/Invoicing 

□ Sales Analysis 

□ Accounts Receivable 

□ Accounts Payable 

□ Gleneral Ledger 

□ Fixed Assets 

System Highllglits 

• On Line, Interactive 

• Fully Integrated 

• Easy to Install 

• DEC PDP-11 and VAX 

Company Highlights 

• 130+ Installations 

• Regional Branch Offices 

• Installation Support 

• User Group 

Call or write today 

388 Oalcmead Fkwy. 
Sunn 3 rvale, Ca. 94086 

C408) 248-7990 
TWX^9103399288 

READER CARD 

IR 

1 nca corporation 
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2 This word contains the offset from the 

beginning of the buffer (inciuding this 
header) to the first byte to be returned 
for the message data, it is initially set 
to 4 and is updated if a receive request 
overflows the user's buffer and trun¬ 
cation is not requested. 

4 This word starts the message data 

area. It can be up to 512 bytes in 
length. 

6.0 CCL — CONCISE COMMAND LANGUAGE BLOCK 

Each concise command language (CCL) definition is 
stored in a CCL block. These blocks are allocated and 
deallocated dynamically from the small buffer pool. 

The CCL blocks are kept in a linked list in the order in 
which they were defined. The first element in the list is 
pointed to by the location CCLLST. 

The format of a CCL block is as follows: 


IT'S 2:28 AM 


Some kid with a MODEM justfigured 
out that you have 1,100; DEMO. 


LOTS OF LUCK! 


Lirk tc next cC L 

clock 

Pointer tc CCL text within CCL black 

Pointer to first option 

cl cnarsctar 

Associated proaram' 

s PPN 

Filename of prccram to 

run (PAD5C) 

Fileran-e extension 

(PA050) 


CCL corriTiand text 
(te rnr mat eo by 377(octal)) 


Associateo pro;ram's device naire 
Unit real tjsg | Unit number 

J^ointer to first options! character 
Parameter uiord/ line number for PLN 


2 

4 

t 

c 

10 
12 
1 4 
1 6 
1; 


20 
22 
2 4 


3C 


Offset Symbol Description 

0 This word contains the address of the 

next CCL block in the linked list. This 
word contains a 0 for the last CCL 
block. 

2 This word is a pointer to the first 

character in the CCL command text 
string. 

4 This word is a pointer to the first op¬ 

tional character in the CCL command 
text string. 

6 This word contains the PPN of the pro¬ 

gram to run in response to this CCL 
command. 

8 These two words contain the file name 

(in RAD50) of the program to run in 
response to this CCL command. 

12 This word contains the file extension 

(in RAD50) of the program to run in 


lJ®CK-ll 

SPO on Page 49 
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THE RSTS EXTENSION 

ADDING TERMINAL LINKS TO YOUR RSTS SYSTEM 

By Kevin Paul Herbert 

Copyright ® 1981 by 

Software Techniques, Inc., SZ4Z Katella Avenue. Suite »101, Los Alamitos. Calif 90720 


This is the first in a series of articles on adding new 
features to RSTS/E. Many RSTS/E users "wish" for 
enhancements to the operating system, either at DECUS or 
by sending DEC SPR forms, and often, these changes are in¬ 
corporated into future versions of RSTS. More often, 
however, these wishes, despite their usefulness, are con¬ 
sidered to be not worth the effort to develop and support, 
and are therefore not implemented. In this series of articles, 
I plan on providing patches to RSTS/E V7.0 that will make 
your RSTS system much more useful. Note that use of any 
of these patches will void your software support warranty. 
In addition, note that although every attempt has been 
made to insure that these patches do indeed function, no 
guarantee is made that these patches actually do work. 
With this in mind, welcome to The RSTS Extension. 

Many system managers desire the capability to spy on 
other users (monitor all their terminal activity without being 
detected) or be able to communicate with other terminal 
users without the need to run a TALK program (so that the 
terminal can be used for both the communication of user 
messages and the demonstration of program runs and 
development.) In addition, many users would like additional 
functionality from keyboard "control" keys. 

In this article, 1 will describe the addition of several ter¬ 
minal service enhancements. Five new "control" keys have 
been added to the terminal service. First, Control/E is a pro¬ 
grammable function key. It is possible to program up to 32 
characters to be entered to the system with the depression 
of the Control/E key. This function can be used to enter 
common responses (such as YES or NO), or to execute a com¬ 
mon system command (such as SYSTAT). Continuing, Con- 
trol/F can be used to list all of your jobs open files. 
Although the Control/F code is listed in a previous version of 
the RSTS Professional, the original version conflicts with 
changes made to support the new features described in this 
article. To optionally add Control/F support and the changes 
detailed in this article requires a copy of TTOPNF.MAC writ¬ 
ten by Steve Davis. TTDVR.TEC is not needed, and will fail 
(creating an unusable monitor) if an attempt is made to use 
it with these changes. Further, Control/W can be used to 
erase the last word typed. This key is a compromise be¬ 
tween Rubout, which erases the last character, and Con- 
trol/U, which erases the last line. Control/X will cancel all 
un-processed type-ahead. This key can be used as a "panic" 
key to abort any unwanted type-ahead but not abort the 
current running program (as a Control/C would do). Finally. 
Control/Y allows a privileged user to detach his current run¬ 
ning Job. 

The format for the call to program the Control/E key is 
as follows: 

PRINT RECORD 8192%. STRING.TO.PROGRAMS; 


Where STRING.TO.PROGRAM$ is a 1 to 32 character 
string. All control characters except for <LF> and <CR> 
are ignored. Note that because of an idiosyncracy in Basic- 
Plus, the trailing semi-colon is required. Also note that it is 
valid to program Control/E for other terminals that you 
own by including a channel number in the write. 

In addition to the new control keys, terminal links have 
been added to the monitor. With terminal links, it is possible 
to spy and talk to other users without the overhead of a 
communication program. In addition, both users are free to 
work normally while a spy or talk link is initiated. When 
talking, both users see each others output, and when spy¬ 
ing, the spying user sees the spyed-upon user’s output, but 
the spyed-upon user is unaware of this operation. The 
capability to TALK is non-privileged (if the receiving user 
allows users to TALK to him) and the SPY capability is pri¬ 
vileged. 

I have supplied a utility to control the terminal link 
capability (TLU). It is also possible for user programs to use 
the terminal link calls in their own programs. The following 
text describes the basic mechanics of “terminal links ”, and 
the use of the new utility calls. 

To add these new features to the terminal driver re¬ 
quired adding additional data storage to the monitor. This 
was accomplished through modifications to TTDINT.MAC. It 
was necessary to add storage both on a system-wide basis 
and a per-terminal basis. Each terminal has a device data 
block (DDB). The DDB contains all of the information needed 
by the monitor and terminal driver to control a terminal 
interface on a per-terminal basis. In order to enhance the 
terminal service, the terminal DDB has been expanded by 
three words (1 confess, this does reduce the maximum 
number of small buffers possible at a rate of one small buf¬ 
fer per 5.33 terminals). The first of these three new words is 
called TTFUNK. This word contains either a zero, indicating 
that Control/E is not in use, or points to a small buffer con¬ 
taining the function key text associated with Control/E. The 
second word is called TTLINK. This either contains a zero, in¬ 
dicating that the terminal is not linked, or points to a small 
buffer containing internally coded pointers and flags, and 
26 keyboard numbers (it is possible to link to up to 26 
users). This small buffer (the link table) is shared by all 
members of a link group ("conference" links use no more 
small buffer resources than do "one-on-one ” links.) The third 
word added to the monitor is TTLNKS. This word contains 
the “ talk status ” (defined in the next paragraph), internal 
flags, and a user scratch pad byte (defined later). The 
modification to add storage for the terminal driver on a 
system-wide basis consisted of adding one word (LNKLSTj to 
the monitor. This word contains the root of the linked list of 
all the link tables currently in use. Although the primary 
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purpose of LNKL5T was for debugging during development, 
it would be possible, by studying the link table layout in 
LINKS.MAC, to write a program to give a link status report. 
LNKLST is always located at the address TTYHCT + 2 in the 
monitor. The value for TTYHCT is returned by the UU.TB2 
(Get Monitor Tables Part II) UUO (SYS call). If there is interest 
in this application, I will consider writing such a utility in a 
future article. 

Every terminal 
has an associated 
"talk status”. This 
"talk status" deter¬ 
mines how the 
monitor handles 
the create a link 
call. The currently 
defined talk states 
are OFF, QUERY, 
and ON. If a user's 
talk status is OFF. 
the monitor will re¬ 
turn an error to 
any user attempt¬ 
ing to create a link 
(unless privileged). 

The user with the 
talk status of OFF 
receives no notifi¬ 
cation of the at¬ 
tempt. and is com¬ 
pletely unaffected. 

If a user is in the 
QUERY state, the 
monitor will return 
an error (identical 
to the OFF state), 
although the user 
in QUERY state will 
be notified that an 
attempt to link 
was made. If a user 
is in the ON state, 
the monitor will al¬ 
low any user to cre¬ 
ate a link, and will 
display a notifica¬ 
tion message upon 
the creation of the 
link (unless inhibi¬ 
ted by a privileged 
user). 


The general 

format of a terminal link call iS: 

RESULT% = SPEC%(FUNCnON%. ARGUMENT% + SWAP%(FLACS%). 0%. 2%) 

There are four functions. They are link to a user, break 
all links, set talk status, and return talk status. Function 
code 4096% is the create a link call. The argument is the 
keyboard number to create a link to. In addition, privileged 


users can select four flags in the link creation. They are: bit 
0 to inhibit the monitor from announcing the creation of the 
link, bit 1 to ignore the destination user's link status, bit 2 
to spy on a user, and bit 3 to not notify (query) a user if the 
destination's talk status is set to query. Any of these bits 
can be used in combination, although there are illogical com¬ 
binations (for example, spy implies ignoring talk status and 

no notification, and 
ignoring talk sta¬ 
tus means that a 
user will never be 
queried). 

Function code 
4097% is the 
break all links call. 
This call takes no 
arguments or 
flags, and removes 
a user from any 
links he might 
have. Function 
code 4098% is 
used to set talk sta¬ 
tus. The argument 
is the talk status to 
set and is a bit 
oriented field. If bit 
0 is set, a user's 
talk status is "on" 
and any user may 
link to this user. If 
bit 1 is set. a user's 
talk status is 
"query ", and this 
user can not be 
linked to, but will 
be notified when 
any other user 
makes an attempt 
to create a link. If 
bit 2 is set (the bit 
is privileged), this 
terminal's talk sta¬ 
tus will "stay" con¬ 
stant across jobs 
and can only be 
changed by a privi¬ 
leged user. If the 
"stay " bit is not 
set, a terminal will 
be set to the sys¬ 
tem default talk 
status when the 
Job is created. Bits 3 through 5 are reserved for future use, 
and bits 6 and 7 are reserved for internal housekeeping flags 
(they can never be set and will always be read as zero). Any 
bits can be set in combination, but the ON bit overrides the 
QUERY bit. Note that if neither ON nor QUERY are set. the 
user's talk status is OFF. and any attempts to link to the 
user will be denied, giving the caller an error message (un¬ 
less overridden by a privileged user). The flags consist of an 


How to count 
your chickens 
before they 
hatch. 

Surprises can be expensive. Even good news 

can cost money if your company is not prepared for it. 

With financial modeling you can avoid surprises 
and plan calmly for whatever the future has in store 

FINAR is the latest financial analysis and reporting 
system. It will help you plan: 

■ Budgets ■ Project evaluation 

■ Cash flow ■ Forecasts 

■ Capital Investment ■ Consolidation 

All you need is a DEC PDP-11 with RSIS or a VAX-II, 
and FINAR—the Financial Analysis and Reporting Language. 
If you’d like to know how to count your 
chickens before they hatch, call or write: 

Finar Systems Limited 
6000 E. Evans. Suite 2-300 
Denver, CO 80222 • (303) 758-7561 

New York • (212) 222-2784 

Chicago • (312) 876-1081 ^ 

Houston • (713) 960-0848 
San Francisco • (415) 956-1178 
Toronto • (416) 245-8473 

FINAR 


^>c> 
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eight-bit number that is never used by the monitor and can 
be used to communicate a terminal type value to application 
programs. Finally, function code 4099% is used to return 
talk status. There are no arguments or parameters, and the 
result is the talk status as set by the set talk status call. For 
further information on these calls, see the TLU program. 

Adding these new features to your RSTS monitor is a 
fairly simple procedure. The most difficult step will be doing 
the new SYSGEN to build a monitor with the enhanced ver¬ 
sion of the terminal service. For detailed information on 
system generation, see The System Generation Manual. The 
complete procedure for adding terminal links is detailed 
below. 

Step 1 — Copy all necessary files from your RSTS/E distribu¬ 
tion. 

If your RSTS/E SYSGEN distribution is on tape, mount 
the tape write-locked on a magtape unit. If your distribution 
is on disk, mount the disk write-locked. Log in to your 
privileged account (the account where you would like to 
keep the patched version of the terminal service). For disk 
distributions, it will be necessary to logically mount the pack 
(with the mount command). The pack ID will be either 
SYSGNG (for RSTS/E V7.0-07) or SYSGNH (for RSTS/E 
V7.0-08). Run PIP and execute the following commands 
(note that this example assumes that your distribution is 
located on MTO:, if this is not true, change all references to 
MTO: to the appropriate device). 

RUN [1.2]PIP 

• SY: = MT0:[1 .ZJTTDVR.MAC 

• SY: = MT0:[1 .ZJTTDINT.M AC 
•SY: = MT0:[1.2FBLMAC 

• SY: = MT0:[1.2]C0MM0N.MAC 

• SY: = MT0:[1.2]KERNEL.MAC 

• SY: = MT0:[1.2]KBDEF.MAC 
•SY: = MT0:[1.2]CHECK.MAC 
•SY: = MTO:[1.2]*.OBJ 

• SY:[1.2] = MT0:[1.2]ERR.STB 

• SY:[1.2]/PR:N0WARN = MT0:[1.2]SYSGEN.SAV 

• SY:[1.2]/PR:N0WARN = MT0:[1.2]SYSBAT.SAV 
•tZ (Control/Z to Exit) 

step 2 — Run the SYSGEN program 

SYSGEN will ask questions dealing with your system s 
hardware configuration. For information on SYSGEN. see 
the System Generation Manual. Do not run SYSBAT when 
finished with SYSGEN, you DO have special requirements. 

RUN [1.2]SYSGEN 

.. Answer all questions to create a monitor ... 

)tep 3 — Install the patches 

RUN [1.2]CPATCH CPATCH V7.CK)7 RSTS V7.CM)7 Softec Dev 11/70 

File to patch - TTDVR.MAC = TTDVR.MAC 

^DVR/CS:20188 

... Patch will be installed ... 

^tZ (Control/Z to return to previous question) 

File to patch -TTDINT.MAC = TTDINT.MAC 

^DINT/CS: 18991 

... Patch will be installed ... 

^tZ (Control/Z to return to previous question) 

File to patch - SYSGEN.CTL = SYSGEN.CTL 
SYSGEN/CS:20746 

^IZ (Control/Z to return to previous question) 

File to patch - tZ (Control/Z to exit) 


The next step is necessary only if you want Control/F 
support in your monitor. The code necessary for Control/F is 
not included in this article, although a command file for 
building it in is. Note that the Control/F patch file 
(TTDVR.TEC) will not work properly with these changes, and 
will cause unpredictable results. TTDVR.TEC is not necessary 
for Control/F installation, although TTOPNF.MAC is. It is 
assumed that a copy of TTOPNF.MAC can be found in the 
current account. If this is not true, copy TTOPNF.MAC to the 
current account. It will be needed during the SYSBAT pro¬ 
cedure. DO NOT FOLLOW THE INSTALLATION INSTRUC¬ 
TIONS THAT WERE SUPPLIED WITH CONTROL/F! ALL THAT 
IS NECESSARY FOR THIS CONTROL/F INSTALLATION IS 
THAT A COPY OF TTOPNF.MAC BE LOCATED ON THE CUR¬ 
RENT ACCOUNT. THE REST IS AUTOMATIC! 

Step 4 (Optional) — Add Control/F support 

RUN [1.2]CPATCH 

CPATCH V7.a07 RSTS V7.007 Softec Dev 11/70 
File to patch - SYSGEN.CrL=SYSGEN.Cru 
«'SYSGCF/CS:36018 

^IZ (Control/Z to return to previous question) 

File to patch - tZ (Control/Z to exit) 

The next step is to run the SYSBAT program to create a 
monitor. Follow the procedure in the System Generation 
Manual for use of the SYSBAT program. After running 
SYSBAT, shut down your system and install the new 
monitor. The new system should run normally, and many 
new features should be available. At this point, you may in¬ 
stall any of the new feature patches using ONLPAT (the one 
for Control/F and non-privileged users WILL work) and build 
the TLU program (if desired). Note that the TLU program 
should be stored with a protection code of < 104>. The pro¬ 
cedure for building TLU is as follows: 

RUN [1.2KSPCOM 

CSP>TLU.0BJ/0BJ = TLU.B2S 

CSP> IZ (Control/Z to exit) 

RUN [1.2FKB 
TKB>@TLU 

RUN [1.2]PIP 

•[1.2]<104>=TLU.TSK 

•tZ (Control/Z to exit) 

12-Nov-8i 16:37 (1,13) TL0303.001 Page 1 

I TL0303.001 - Make Control/Y function for non-privileged users 
Pile to patch? 

Module name? TER 
Base aadress? ..PRCY 
Ofrset address? 0 
Base Offset Old New? 

?????? 000000 001405 ? 240 

?????? 000002 ?????? ? “C 

12-NOV-81 16:37 11,13) TL0303.002 Page 1 

I TL0303.002 - Set system wide default talk status 
! Replace tne "n" below with the desired default talk status. 

! Note that this patch will not effect terminals with the 
1 "stay" characteristic set. 

File to patch? 

Moaule name? TER 
Base address? ..DFTK 
Offset address? 0 
Base Onset Old New? 

?????? 000000 000001 ? n. 

?????? 000002 ?????? ? *C 

12-NOV-81 16:38 (1,13) TL0303.003 Page 1 

! Tb0303.003 - Set privileged talk states. 

1 Replace the "n" with the sum of the privileged talk states, 
i If it is desired to make this call privileged, replace the 
1 "n" with a -1. 

File to patch? 

Module name? TER 
Base aadress? ..KSPR 
Ofrset address? 0 
Base Offset Old New? 

?????? 000000 000004 ? n. 

?????? 000002 ?????? ? “C 
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12-NOV-81 16:37 


(1,13) TL0303.004 


Page 1 


2U00I fc 

1 Start or MAIN k 


! TL0303.004 - Change a terminal's default talk status 
1 Note: For this to work, the STAY bit must be set. This implies 
1 tnat non-privileged users will be unable to change the talk status 
! Change the "n" below to a keyboard number, and the “m" below 
1 to the desired talk status. 

File to patch? 

Module name? RSTS 

Base address? KBDDDB+(n.*DDS.KB) 

Oftset address? TTLNKS 
Base Offset Old New? 

?????? ?????? 000001 ?m.!4 

?????? ?????? ?????? ? “C 


2010 GOTO 32767 IF E0% k 

\ PKlNT "Tlu>'; k 

\ GET #0% k 

\ MOVE FROM #0%, CMD$«RECOUNT k 

\ CMDS*EDIT$(CMDS,-1%) k 

1 If this was a CCL entry, exit now. fc 
! Prompt for input, k 
1 Reao a line from the terminal k 
! Get it into CMD$. k 
! Trim off any garbage, k 


12-NOV-81 16:38 


11,131 TLU.B2S 


Page 1 


111 


2U1 

211 

lUOl 

4001 

5001 


Title: 

k 

Version: 

k 

Edit date: 

k 

Written by: 
k 

Date: 

k 

Package: 

i. 

Description: 


T L U fc 

V7.0-02 k 

20-Oct-81 k 

Kevin Paul Herbert k 

14-Oct-81 k 

Terminal Links k 

Terminal Link Utility Program k 


Copyright (C) ly81 k 
Sottware Techniques k 
Los Alamitos, CA 90720 k 

k 

This software is provided free of charge to readers of the RSTS k 
Professional and may be copied only with the inclusion of the k 
above copyright notice. This software, or any other copies k 
thereof, may not be provided or otherwise made available to any k 
other person except for non-commercial use and to one who agrees k 
to these license terms. Title to and ownership of tne software k 
shall at all times remain in Software Techniques, k 
k 

The information in this document is subject to change without k 
notice and should not be construed as a commitment by Software k 
Techniques, k 

k 

This software is un-released and Software Techniques has no k 
commitment to support it at this time, unless stated elsewhere in k 
writing, k 


Modification History k 

k 

Ver/Edit Date 


Reason (Who) k 


V7.0-01 14-Oct-81 Initial conception, k 

V7.0-02 20-Oct-81 Fixed STAY problem. (KPH) k 

Updated for LINKS V2.1-04 k 


Program Description k 

k 

This program allows a user to create ana break terminal links, k 
In addition, it allows the privileged user to spy on other users, k 


Variables and Arrays k 


Compile time variables k 


501 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 


.Define .Version$ • •V7.0-02'’ k 
.Define .Create.Link! « 4096% k 
.Define .Ignore.Statust - 512% k 
.Define .Spy.Call% - 1024% k 
.Define .Break.Link% > 4097% k 
.Define .Set.Link% - 4098% k 
.Define .Get.Link% » 4099% k 
.Define .Talk.On% ■ 1% t 
.Define .Talk.Query% ■ 2% fc 
.Define .Taik.Stay% > 4% 4 
I Program Version, k 
i Create a link call k 


7501 k 

I Functions k 

1 k 

I Name Line • 

! FNMATCH% 14000 


Description k 

-fc 

Check for string matches, k 


9001 k 

I Dimension Declaration k 

1 k 

1 901-929 local dimension declarations k 
I 930-949 library dimension declarations k 
1 950-97y MAP statements k 


950 MAP (KEYWRD) KEYWRDt k 

1 Define the keyword, k 

i For this to work, the following line must be added k 
! into the TKB command file: k 
I VSECT-KEYWRD:400:2 k 

9991 k 

1 Start of Initialization k 

1 k 

luOO Onerror Goto 19000 k 

I Set standard error trap, k 

1010 Print "Tlu ‘ ♦ .Versions ♦ * Software Techniques" k 

+ CR + LF + "Terminal Link Utility"^ CR ♦ LF fc 
Unless E0% 4 

1 Print standard header on 'Run' entry. 4 

lu30 I Define various variables. 4 
\ NOT.PRIV%-(KEyWRD% AND 1024%)-0% 4 

\ I$-SYS(CHR$(6%)+CHR$(-21%)) 4 

\ GOTO 2020 IF E0% 4 

I Set up the non-priv flag (-1 for non-privileged users.) 4 
! Get rid of privileges (we shouldn't have them anyway.) 4 
I Skip the first-time prompt if CCL entry. 4 


2u20 PRINT IF CCPOS(0%) 4 

\ GOTO 2010 UNLESS LEN(CMDS) 4 

\ RESTORE 4 

\ UNTIL 0% 4 

\ READ CMD.CHKS,SIG%,PLAGS%,VECTOR% 4 

\ IF (SIG% AND NOT.PRIV%)>«0% 4 

THEN SIG%—SIG% IF SIG%<0% 4 

\ MATCH%-FNMATCH%(CMDS,CMD.CHKS,SIG%) 4 

\ IF MATCH% 4 

THEN CMD$»RIGHT(CMD$,MATCH%) 4 

\ ON VECTOR% GOTO 3000,3100,3200,2020,3300,3400,3500,3600 k 

1 Return the carriage if needed. 4 
1 Take input again if a null string. 4 
1 Restore the command list. 4 
! Loop forever 4 

1 Get the command, minimum match, flags, and vector. 4 
1 If it is ok to do this command, 4 

1 Negate the sig. chars if necessary. 4 
1 Check for a match. 4 
1 If we got a match, 4 

1 Save only the argument to the command. 4 
1 Go to the handler for that command. 4 

2030 NEXT 4 

1 Finish the loop. 4 

2u40 PRINT "Unknown command - •+CMD$ 4 

\ PRINT "Type 'HELP* if you need it." UNLESS E0% 4 

\ GOTO 2010 4 

1 Report an error. 4 

1 Tell the user about HELP unless CCL entry. 4 
! Go back for more. 4 

3000 I This handles the TALK, SPY, and LINK commands. 4 
1 The TALK command is used to create a link. 4 
I The SPY command (privileged) is used to spy. 4 
1 The LINK command (privileged) is used to TALK ignoring 4 
1 The terminal's link status. 4 
1 Privileges have been verified. 4 
1 Flags% contains the appropriate bits to set. 4 
I CND$ contains the keyboard number. 4 
\ KB%-VAL(CMD$) 4 

\ IF KB%>127% OR KB%<0% 4 

THEN PRINT "?Invalid keyboard number" 4 

\ GOTO 2010 4 

ELSE IP LEN(CMD$)-0% 4 

THEN PRINT "Keyboard number: "; 4 

\ GET 10% 4 

\ MOVE FROM #0%, CMDS-RECOUNT 4 

\ CMDS-EDIT$(CMD$,-1%) 4 

\ IF LEN(CMDS) 4 

THEN GOTO 3000 4 

ELSE PRINT *?Keyboard number must be specified" 4 
\ GOTO 2010 4 

ELSE I%-SPEC%(.CREATE.LINK%,KB%+FLAGS%,0%,2%) 4 

\ GOTO 2010 4 

I Get the keyboard number. 4 
I If it is illegal, 4 

1 give an error. 4 
1 Go back for more. 4 
1 If it is legal, 4 

1 If it is a null string, 4 
I Ask for it. 4 
I Take the input. 4 
1 Move it into a string. 4 
1 Clean it out. 4 
1 If it is null, 4 

1 Give an error, 4 
1 If not, 4 

I Try again to parse it, 4 
1 If it is not null, 4 

1 Try to create the link. 4 

I Go back for more (error trap reports errors.) 4 

3i00 I This is the BREAK command. 4 

1 It is used to break all of a user's links (or SPYs). 4 
\ I%-SPEC%(.BREAK.LINK%,0%,0%,2%) 4 

\ GOTO 2010 4 

! Break all links. 4 
1 Go back for more. 4 

3200 1 This is the STATUS command. 4 

1 It will list the user's current talk status and display 4 
1 the terminal type byte if it is non-zero. 4 
\ STS%-SPEC%(.GET.LINK%,0%,0%,2%) 4 

\ PRINT "Talk status is "; k" 

\ IF STS% AND .TALK.ON% 4 

THEN PRINT "On." 4 

ELSE IF STS% AND .TALK.QUERY% 4 

THEN PRINT "Query." 4 

ELSE PRINT "Ort." 4 

1 Get the talk status. 4 
I Print Talk status is... 4 
! If on, 4 

! Say "On." 4 
1 If not on, 4 

1 If query, 4 

1 Say "Query." 4 
! If not query, 4 

1 Say "Off." 4 

3210 PRINT "Talk status stays between jobs." IF STS% AND .TALK.STAY% 4 
\ STS%=SWAP%(STS%) AND 255% 4 

\ PRINT "Terminal type »";STS% IF STS% 4 

\ GOTO 2010 4 

! Report the STAY condition if set. 4 
! Get the terminal type byte. 4 
! Report it if it is non-zero. 4 
! Go back for more. 4 

3j 00 ! This is the HELP command. 4 

I We will print out how to use this program. 4 

\ PRINT "Commands are:" ♦ CR ♦ LF + 4 

HT + "TALK n" + HT ♦ "Talk to keyboard N" + CR + LF + 4 

HT + "BREAK" + HT + "Break all links" + CR + LF + 4 
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CIRCLE 82 ON READER CARD 


TRIDACOR SYS 


OFFERS 

TRIDAKIT 


820 FREEWAY DR. NORTH 
SUITE 211 

COLUMBUS, OH 43229 

(614) 431-0805 CANADA 


HT 

♦ 

"STATUS" 

♦ 

HT 

4 

"Get 

talk status" ♦ CR ♦ LF ♦ 4 


HT 


"ON" 


HT 

4 

"Set 

talk status to ON" ♦ CR + 

LF + 4 

HT 

♦ 

"OFF" 

♦ 

HT 

4 

"Set 

talk status to OFF" ♦ CR ♦ 

LF + 4 

HT 

+ 

"QUERr- 

+ 

HT 

4 

"Set 

talk status to QUERY" ♦ CR 

♦ LF + 4 

HT 

♦ 

"TYPE" 

+ 

HT 

4 

"Set 

terminal type byte" 4 


HT 

♦ 

"LINK n" 

4 

HT 

4 

"Talk 

regardless to keyboard N" 

♦ CR ♦ LF ♦ 4 

HT 

♦ 

"SPY n" 

4 

HT 

4 

"Spy 

on keyboard N" ♦ CR + LF ♦ 

4 

HT 

♦ 

"STAY" 

4 

HT 

4 

"Set 

STAY characteristic" + CR 

+ LF + 4 

HT 

♦ 

"UNSTAY" 

4 

HT 

4 

"Reset STAY characteristic" 4 




UNLESS NOT. 

PRIV! 4 




\ GOTO 2010 fc 

! Define the non-priv'd commands, fc 

! Detine the priv'd commands unless non-priv'd user, k 
1 Go back for more. 6 

3400 1 This is the 'ON', 'OFF', and 'QUERY* commands. ( 

\ I%-SPEC%(.Set.Linkt,{SPEC%(.Get.Link%,0%,0%,2%) AND -4%) OR FLAGS%, fc 

0 %, 2 %) & 

\ GUTO 2010 (i 

1 Set the new status, k 
1 Go back for more & 


19000! 

4 


! 

1 

4 

Error Handler 4 

19003 

IF 

CRR=3% 4 


THEN 

IF ERL-3000% 4 

THEN PRINT "?Link entry already in use" 4 

\ RESUME 2010 4 


! If 

"INUSE" 4 

! If at the create a link, 4 

! Report SPY/LINK conflict. 4 
/ ! Go back for more. 4 

19004 

IF 

ERR=4% 4 


THEN 

IF ERL-3000! 4 

THEN PRINT "?No room in link table" 4 

\ RESUMF 2010 4 


! If 

"NOROOM" 4 

! At the create a link, 4 

! Report this (will probably never happen) 

{ Go back for more. 4 


3500 1 This is the 'STAY and 'UNSTAY’ command, i. 

\ I%-SPEC%(.Set.Link%,(SPEC%(.Get.Link%,0%,0%,2%) AND -5%) OR FLAGS!, 4 

0 %, 2 %) & 

\ GOTO 2010 S 

1 Turn off the stay bit. k 
I Go back for more, k 

3600 I This is the 'TYPE' command. ( 

\ KB%-VAL(CMD$) k 

\ IK KB%>255% OR KB%<0% k 

THEN PRINT "?Invalid terminal type" k 

\ GOTO 2010 k 

ELSE IF LEN(CMD$)>0% k 

THEN PRINT "Terminal type: "; k 

\ GET #0% k 

\ MOVE FROM #0%, CMD$-RECOUNT k 

\ CMD$-EDITS(CMD$,-1%) k 

\ IF LEN(CMD$) k 

THEN GOTO 3600 k 

ELSE PRINT "?Terminal type must be specified" k 
\ GOTO 2010 k 

ELSE I%-SPEC%(.Set.Link%,(SPEC%(.Get.Link%,0%,0%,2%) k 

AND 255%) OR SWAP!(KB!),0%,2%) k 
\ GOTO 2010 k 

I Get the type value, k 
1 If it is out of range, k 
! Give an error, k 
! Go back k 

I If it seems in range, k 

1 If it is unspecified, k 
1 Prompt for it. k 
! Take input, k 
1 Move it into the buffer k 
! Trim off any junk, k 
i If something was specified, k 
1 Process it again, k 
1 If nothing was specified, k 
! Give an error k 

I Go back k 

1 If it is specified, k 

1 Set the new value k 

I Go back k 

9'i99 Goto 32700 k 

I Prevent fall through errors, k 


1V006 It ERR=6! k 

THEN IF ERL>3000! k 

THEN PRINT "?Keyboard number out of range" k 
\ RESUME 2010 k 

! If "NODEVC" k 

i At the create a link, k 

1 Report KB number out of range, k 
1 Take more input, k 


19007 IF ERR»7! k 

THEN IF ERL-3000! k 

THEN PRINT "?Link already established" k 

\ RESUME 2010 k 

I If "NOTCLS" k 

! If at the create a link, k 
! Report the error. 6 
1 Go back for more, k 

19008 IF ERR«8! k 

THEN IF ERL-3000! k 

THEN PRINT "?There is no job running on that terminal* k 
\ RESUME 2010 k 

! If "NOTAVL" k 

1 At the create a link, k 

1 Tell the user why we couldn't link, k 
1 Take more input, k 


19010 IF ERR-10! k 

THEN IF ERL-3000! k 

THEN PRINT ”?Terminal not receiving links" 4 

\ RESUME 2010 4 

ELSE IF ERL-3400! or ERL-3600! 4 

THEN PRINT "?Talk status is set to STAY" 4 

\ RESUME 2010 4 

I If "PRVIOL" 4 

1 At the create a link, 4 

I Tell the user that talk is off. 4 
I Take more input 4 

1 At the set link status or terminal type byte, 4 

i Tell the user he can't change talk status. 4 
I Take more input. 4 


19011 If (Err - 11!) 4 

Then Resume 32700 4 

I End of file on device. 4 


14000 I 4 

1 Local Functions 4 

I 4 

\ DEr FNMATCH!(COMMANDS,CHECKS,MATCH!) 4 

\ FOR Z0!-LEN(CHECKS) TO MATCH! STEP -1! 4 

\ IF LEFT(COMMANDS,ZO!)-LEFT(CHECKS,20!) 4 

THEN FNMATCH!-Z0!+1! 4 

\ FNEXIT 4 

1 Match checker function. 4 

! FNMATCH!( Command to check. Valid command, • of sig characters) 4 
1 Loop for the length to the minimum match backwards. 4 
I If we have a match, 4 

! Set the after match pointer. 4 
! Exit this function. 4 

14010 NEXT ZO! 4 

\ FNMATCH!-0! 4 

\ FNEND 4 

! Continue the loop. 4 
! Set failure. 4 
! Exit the function. 4 


19018 

IF 

ERR-18! 4 


THEN 

IF ERL-3000! 4 

THEN PRINT "?you can't link to yourself" 4 

\ RESUME 2010 4 


1 If 

"BADFUO" 4 

1 At the create a link, 4 

1 Tell the user of his silliness. 4 

1 Go back for more. 4 

19032 

IK 

ERR-32! 4 


THEN 

IF ERL-3000! 4 

THEN PRINT ■?No room to create link table* 

\ RESUME 2010 4 


1 If 

the V7.0 nemesis, 4 

1 At the create a link call, 4 

1 Report it nicely, 4 

1 Go back for more 4 

19052 

IF 

ERR-52! 4 


THEN 

IF ERL-3000! 4 

THEN PRINT •7Illegal keyboard number" 4 
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\ RESUME 2010 i. 

ELSE IF ERL=3600% & 

THEN PRINT "?Illegal type number* k 

\ RESUME 2010 k 

! If illegal number, k 

! If processing the keyboard number, k 
1 Give an error, k 
! Get another command, k 
! If processing the type byte, & 

! Give an error, k 
! Get another command, k 


l-^OS/ It ERR=57% k 

THEN IF ERL=2020% k 

THEN RESUME 2040 k 
! I f we got out of data, k 

! When we read the commands, k 

! Go back to report the error, k 

1^999 Onerror Goto k 
! Give up. k 


20000! k 


! Data Statements 

k 




! k 

DATA "ON", 

2, 

1 , 

6 , 

. k 

"OFF", 

2, 

0, 

6 , 

, k 

"QUERY", 

1 , 

2, 

6, 

r k 

"STAY", 

4, 

4 , 

7, 

r k 

-TYPE", 

2, 

0, 

8, 

, k 

"TLU", 

3, 

0, 

4 , 

, k 

"TALK", 

1 , 

0, 

1, 

, k 

"SPY", 

2, 

1024 , 

1 , 

f k 

"LINK", 

1, 

512, 

1 , 

f 'k 

"BREAK", 

1 , 

0, 

2, 

, k 

"STATUS", 

2, 

0, 

3, 

k 

"HELP", 

1, 

0, 

5, 

k 

"?" , 

1, 

0, 

5, 

k 

"UNSTAY", 

•1, 

0, 

7 

k 

30000 ! CCL ENTRY POINT k 

\ CMDS = EDIT$(SYS(CHRS(7%) ) 

,-l%) k 





\ E0%=(CMDS<>"TLU’) k 

\ GOTO 1000 k 

! Get core common (junking junk), k 

! Set the entry flag, k 
I Go to the top. k 

32/00! k 

! Completion Routines k 


32710 Close 1%, 2%, 3%, 4%, 5%, 6%, 7%, 8%, 9%, 10%, 11%, 12% k 
! Close all channels (the fast way). k 


3^/67 Ena 


12-NOV-81 16:58 


[1,131 TLU.CMD 


Page 1 


SY:TLU=SY:TLU,LB:CSPCOM/LB 

/ 

UNITS * 12 

ASG = SY:5:6:7:8:9;10:11:12 
;RESLIB=LB:BASICS/RO 
VSECT=KEYWRD:400:2 
TASK=...TLU 
EXTTSK* 512 
// 


* AV • c r 

lITIi.-tai TTUVi-, TF.KI.ir.Al. UPIVCP , P-, 2?-!:| 1 - 7 >•, nil.:PU I'.PH, CL, A!’( .‘JK, I n , Al-.i* C r 

*G/?.2-ErP-79/-nc, CH-C('T-h!, r./M JV I* cr 

TITl.i.- tat- TTDVF, • T!:i;n r Al. PI IMP , 07 , OH-C C^-81 , Mim, l.l'ft/CU Al'C ;;.I K 1X1/AV.H/KPli/SPP C r 
•ii/rruAi P/OAv Cl 
tab DEFuRG tat. TTEAl-r cr 



• tab DnFORC tab TTPVI7\ lab POirn VICTCKJ: KOI- 7IPKU.AI, bINK.S cr 

■ cr' 

• tab PEKORc. tab-TTiiVKr. tab jTrrnt.Ai. LINK copi v.n.b c( iiri’i cr 

• cr' 

- tab PEFORG- tab-TTPVWR tab rRIH'.OlT cool l-.II.L CO lint (AND hi OVITLAIC ) ■ C r 
cr'- 

•osc>*2AI•cr 
cr' 

■ tab ORG- tab TTMAI-X- tab ;I«APPI D COOl EXTENFK-N (fOP Lir'KE)*cr 

• cr 

'CSC *0AVcr 
' tab'-ORG- tab -TTSYST- cr 
•Al cr 

- cr' 

^tab'-ORC'tab TTOFNF tab rOPEN KILES COnK-rr 
-esc *H/TO.Bir;:/AV cr 

■tab>.BLKU-tab' .<tab ■; 48192,, GNGSLD'Ct' 

•I/TO.FUN; :/DG/UNi:Sf:P/-6C/SET FUNCTION KEY/V«cr 
TO.FUN::.BbKB>tab .-tab ; +8192., SET FUNCTION KFY<cr 
*H/TTOMUL:/AV-'cr' 

'tab^TST<tab'>(Rl)^tab•^tab •;HAS CONTROL/0 IN EFFECT'?-"cr ' 

• I' c r' 

<tab>BIT'tab »'PO.FUN,XRMOD-XRBC(R3) ; FUNtmON KEY WRITE?-cr 

• tab>EE0<tab>5$'tab--'tab ,-NOPE, NOT THIS TIME-cr' 

-tab>JMP'tab>PSETFUN<tab''tab ■;GO TC SET THE FUNCTION KFY-cr 
5$:<esc>*V<cr 

5$:<tab'TST<tab • (Rl) • tab <tab-.-HAS CONTROL/C IN EFFECT?'Cr' 

•G/SPLC'tab>3/0AV- cr 

<tab>SPLC'tab>3'tab><tab>;;NOW Wt CAN GC BACK TO LEVEL 3rcr: 

•I-cr' 

tab>CALL-tab •PCLRLHK,P,5,LK. HSX ;;CLnAR THE LINEFEED NEEDED BIT-cr 
<esc>*V<cr' 

^tab>SPLC<tab 3<tab; 'tab'-;;NOW WE CAN CO BACK TO LEVEL 3^cr 
•G/GLOBAL-tab>/G/IOEXiT/I/,LK.RSX/V' cr ■ 

GLOBAL<tab><JBWAIT,lOEXIT,LK.PSX -cr 
•H/DETJOBi/AV' cr> 

<tab>CLRB<tab>DDJBNO{Pl)' tab-;;NOW "DETACH" THE JOBvCr' 

*I<cr' 

'tab>CALL< tab^PBRKLNK-tab>'tab •;;BREAK ANY LINKS TO THIS TERKIMAL-Cr' 
<esc>*ll/DHONT:/H/90S: -tab' CALL/V-cr 

90S:-tab'CALLX<tab>lOFINC,R5,-BF0.KB-S,,JSTEL ;;CHECK FOR RESTARTING JOBvcr 
*30DI/<tab>TTSJ.ST<tabNvtab./V<.cr:- 

90S:-tab'-CALL'tab'TTSJST<tab>-tab>; .-CHECK FOR RFSTARTING JOB<cr' 

•H/SLINTO::/V<cr> 

SLINTO: :MuV<tabMTTIN,-(SP) ' tab-.;;SET UP TO GO TO "TTIN"<cr:- 
*I<cr> 

MOV<tab'fcHKLIN,-(SP) < tab;MAKL SURE THAT CHKLIN GETS CALLED (FOR LINKS)-cr> 
'tab>-ecc>*V<cr> 

<tab>MOV-tab-ITTIN,-(SP)<'tab>;;SET UP TO GO TO "TTIN"<cr> 

•H/TTSJST::/V<cr> 

TTSJST: :CALLX-tab'>IOFINC,R5,<BFC.KB-5., JSTEL^ ;;SET THE OUTPUT READY FLAG-cr> 
*3KI<cr • 

CALL<tab •RECHKF<tab><tab>;;RE-CHECK FOR BUFFERS-cr: 

-tat>BCS- tab>55S-tab-< tab>; .-NONE AVAI LABLE-cr > 

<tab''CALLX-tab^TOFINl ,P5,JSTEL'tab>;; RESTART JOB<cr 
55S:'tab>RETURN<tab-<tab>'tab^; .-BACK TO WHEREVER...<cr' 


<cr > 

<esc>*0AV<cr'- 

60S:<tab>CALL<tab •TTSJST<t3b>-tab>;;GO SFT THE OUTPUT READY FLAG<cr; 
•H/TTWlPE;:/V<cr- 

TTWIPE : rCALLX-tab.'CLREUF, R5 ,DDBUKC + EP ; ; NOW WIPE OUT OUTPUT BUFFER-rcr - 
•I<cr> 

CALL<tab>liEXELNK<tab><tab>; ;DO THE HOOK FOR LINKS |EXELNK)<cr^ 
-tab><esc>*V<cr> 

-tab>CALLX<tab>CLRBUF,R5,DDBUFC + Er ; ; NOW WIPE OUT OUTPUT BUFFER-cr-- 
*H/IRUBOUT/V-cr> 

<tab>BIT<tab>»RUBOUT,DDFLAG(Pl) ;;IN RUBOUT MODE ?<crr 
*0A2KV-cr> 

'tabNCMP-tab>R2,#177-tab>-tab-.-.-KE WERE, SHOULD WE REMAIN-cr 

*G/:;/KI-cr- 

IS THIS A RUBOUT?-'Ct 

<esc>*V<cr > 

-tab>BEO';tab>10$-tab •'tab -; ;TH1S IS ANOTHER RUBa'T, SO WE SHOULD-cr' 

*G/;;/Kl<cr^ 

NO, DON'T CHECK TO END RUBOUT MODE-cr' 

<'esc>*V<cr> 

<tab>CALL<tab>ENDRUB-tabtab ; END RUBOUT MODE'Cr - 
*H/HTTIDSr/0AV-cr' 

<tab>CALL<tab>PTTIDSP- TTICi:L + 2' (R3) ;;YEP, SO CALL SPECIAL ROUTINE-cr 
•Kl-cr-- 

-tab>MOV'tab TTIDSP--TTICHL+2XR3) ,-(EP) ;;YEP, SO PUSH SPECIAL ROUTINE<Ct' 
-tab>BMI<tab>40S-tab ■tab>;;ROUTINE IS PART OF TTDVR.<cr 

-tab>JMP<tab>PlNHOOK-tab^-tab>;;DO THE SPECIAL INPUT CHARACTER HOOK-cr: 
40$:'tab''CALL'tab'-P(SP)+<tab ■ tab';;OFF TO THE ROUTINE-cr 
• esc-*V<cr- 

-tab ■BR<tab>TTlN04- tab--tab>;;NORriAL THING TO DO NOW IS NOTH ING. . . <c r 

*H/TTILFC:/G/30S;/PA-cr 

•I-cr- 

■ tab'-CALI.-tab •PSETLNK,P5,LK.PSX ;;INDICATF. THAT THIS LINK NEEDS A LF-cr 
esc *2AV ct' 

■ f r 


■ cr 

GLOBAL- tabXLK.RSX; <ct' 

<esc>*H/TTIJOB:/H/TTHOD!;(Rl)/V-cr' 

-tab'>CLR-tab>TTMCDt.(Rl)-tab>;;NO SPECIAL MODE CR DELIMITIR-cr 
*AI-cr> 

<tab>CALL<tab:-PDEFTLK-tab taL^;;SET UP THE DEFAULT TALK STATUS-cr 
<esc>*H/ENDRUB::/V-cr> 

ENDRUB: :BIC-tab''#RUBOUT,DDFLA(,(Pl) ;; END THE RUBOtT MUDL<cr' 

*I<cr> 

BIT<tab>iRUBOUT,DDFLAC(ri ) ;;WFP.E WE IN RUBOUT KUDE?-cr - 
<tab''BEO<tab>10$<tab tab'>;;NO, NOTHING TO DO-cr 
<tab><e8c>*v<cr> 

<tab>BIC<tab>#RUBOUT,DDFLAC.(Pl) ; ; END THE RUBOUT MODE<cr • 

*AI<cr> 

<tab>CALL<tab>@EXELNK- tab><tab>};EXF.CUTE THIS FOR LlNKS<cr> 
<taD>BIT<tab>iTTSCOP,TTCHAR(Pl) ;; IS THIS A SCOPE?<cr'- 
<tab>BNE<tab>10S<tab><tab>;;YES, DON'T SAY ANYTHING-cr> 

<e8C>*V<cr> 

<tab>CALL<tab>ASCOUE,R5,TTBACK ;; AND SIGNAL IT WITH A <\>scr> 

•G/AND/-3C/NO,/V<c r > 

<tab>CALL<tab>ASCOUE,R5,TTBACK ;; NO, SIGNAL IT WITH A <\><cr> 

*H/TISRO:/V<cr> 

TISRO: :<tab>BIT<tab>#TAPE,DDFLAG(Rl) .-.-TAPE MODE?<cr' 

*0AI<cr> 

<tab>TMPORG<tab>TTDVRB<cr> 

<cr> 

<esc>*G/CHOUTE/-6C/90 S/V<c r > 

<tab>BCT<tab>90S<tab><tab>; .-NORMAL TECO, ECHO DELETED CHARACTER<cr> 
*2G/CHOUTE/-6C/90S/V<cr> 

<tab>BR<tab>90S<tab><tab>;; AND OUTPUT IT<cr^ 

*H/NOCHAR/-6C/100S/V<cr> 

70S:<tab>BCS<tab>100S<tab><tab>j .-NOTHING, SO END RUBOUT MODE<ct> 
•G/CHOUTE/-6C/90S,'V<cr> 

<tab>BNE<tab>90S<tab -tab>;.-YEP, SO JUST ECHO RUB'D CHARACTERsCr 
•G/CHOUTE/-6C/90 S/V<c r > 

<tab>BR<tab>90S<tab>-tab>;; THEN ECHO CHARACTER DELETED<cr> 

•H/RETURN/V<ct • 

<tab>RETURN<tab'<tab><tab>i,-ELSE JUST EXIT<cr> 

•AI<cr> 

90$:<tab>JMP<tab>CHOUTE<tab><tab>;,-GO AND OUTPUT A CHARACTER<Ct> 
100$:<tab>JMP<tab>NOCHAR<tab><tab>;;NO MORE CHARACTERS TO RUB OUT-cr> 

<cr> 

<tab>UNORG<cr> 

<esc>*H/CHOUT:/G/TTODSP/OAV<cr> 

<tab>JMP<tab>«TTODSP-<TTOCHL+2>(R3) ;;YES, SO GO TO CORRECT ROUTINE<cr> 

*I<cr> 

<tab>CALL<tab>PEXELNK<tab><tab>; ,-DO THIS FOR LINKS, PLEASE<cr> 

<esc>*H/SNDCHR:/2G/TTCHAR/OAI<Cr> 

<tab>CALL<tab>PEXELNK<tab><tab>; .-LOWER CASE IS TERMINAL DEPENDANT<Cr> 

<esc>*V<cr> 

<tab>TSTB<tab>TTCHAR(Rl)<tab>;;ARE WE CONVERTING FOR HIM ?<cr> 

*G/40S:/V<cr> 

40$:<'tab>DECB<tab^DDHORZ{Rl)<tab>;;YES, WILL IT FIT?<cr> 

•I<cr> 

<tab>CALL<tab>PEXELNK<tab><tab>;.-MAKE SURE WE HAVE NO LINKED MARGIN PROBLEMS<cr> 
50$:<esc>*V<cr> 

50S:<tab>DECB<tab>DDHORZ(Rl)<tab>;;YES, WILL IT PIT?<cr> 

*G/40S/-3C/50S/V<cr> 

•tab>BR<tab>50S<tab><tab>;; AND TRY AGAIN<cr> 

•H/CHROUT::/<cr> 

*I<cr> 

CALL<tab>PEXELNK<tab><tab>; ,-MAKE SURE THIS WORKS FOR LINKED TERMINALS <C r > 

-tab><esc>*H/CHKFRE -/V<cr> 

; CHKFRE - CHfcCK FOR OUTPUT BUFFER AVAILAB ILlTY.-Cr> 

*AI<cr> 

; RECHKF - RE-CHtCK FOR BUFFERS (IGNORING LINK FLAGS)<cr> 

<esc>*V<cr> 

; -cr 

*2AI<cr> 

,- - tat. 'CALL<tab>RECHKF<cr > 

; rcr' 

<esc>*V<cr> 

,- -<cr 

*AllKI<cr> 
c r > 

.ENAnL<tab>LSB<cr- 
<cr > 

CHKFRF: :CALL-tab>PCHKLNK,R5 .I.K.BGF .-.-LINK OUT CF BUFFERS?-cr 
-tab>r.NE<teb'>20Svtab -.tab-.-.-YES, NO .-’GRTI ER CHECKS NEEDED<cr 
RECHKF: ;CALL-tab-OCLRLNK,R5,l K.BUT ; .-PRESET PUFFERS AVAILABLF-cr 
-tab>MOV'tab-»30S,-(SP1 tab'-,-;PtlSH RETURN ADDRESS (FOR LINKSl-Ct 
-tab'-CALL-tab-PEXELNK<tab'><taL ;;AND EXECUTE THIS FOP LINKS-cr 
<tab'CALLX<tab'FREBUf ,R5,BFC.KB .-.-ARE BUFFERS AVAILABl.l'?-cr' 

-tab'.-BCS<tab'-!0S-tab. tab ;;NC, STALL THIS JOB-cr 

- tab TST-tab-DDFLAGIFl )-tab ,-.-BUFFERS /VRE AVAILABLE, IS 111 CTALLFD? cr 

- tab>BPL-tab-40S-tab •'tab •; ,-NO, CHECK SOMEONF ELSF- cr 
.ASSUME-tab -TTSTOP tab'EQ-tab ICOCOO-cr' 

..BQKB tab- = tab ,-2-tab ; ••PATCH** 'NOP' AND TERMINALS CAN'T EXCEED 0"OTA cr- 

- tab. TST'tab>DDBUFC + BC(Rl) - tab ; IS TERMTI.AI, AT 0I'OTA? cr 
-tab>BGT tabX0S<tab><tab>;,-NO, WE CAN EXlT-ct 

10S:<tab>CALL-tab>PSETLNK,P5,l.K.BI’l :;STAIL Till.'' LINK (IF IT lXISTS) cr 
20$:-tab^SEC-tab •-tab>-tab •; .-SET CAII.V FOE FAILUHI.-cr 
J0$:-tab>BCS'tab 40$-tab tab ,-,-NC MEEL TC.- CHFCK I'URT|-kl- ,, 

-tab'-CALL-tab-PCHKLIIK.PO, I K.BI'F .-.-LINK NOW OFT OF BIFFERS . ci 
• tab>ENE-.tab 20$- tab • tab .-.-YE.':, RETURN V.ITl CARRY SET ci 
40$: - tab>RETURN- tab>-tab - taL .-.-lO, CARRV FAS L'Ll'f CLIVRIW cr 

- ct 

.DSABL-tab-LSB- cr 
<cr 

GLOBAL- tab>-LK.BUF,BI C.I'B ' cr 

<£l> 

-esc>*V<cr' 

.SBTTL-tab FORM FEEDS AIID VEPTICAI. VAB.-- ON INPUT-cr 
•H/CHKDLF::/I<cr 

CALL-tab PSPVINC,. tab- tab ,-;SHOULb WE DC THIF FOR LlNK.‘:?'Ci 
<tab>BCS- tab>lC$vtab ' tab ,- ,-NO- cr 

-tab'-CALL-tab-PCHKLNK.ES,IK.PSX ,-,-DOn.S Tl'IS LINK L'FF.D A LF?-Ct 
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<^tab-'BEO<tab •10$'^tab>> tab^; ;NG, ACT NORMALLY< cr' 

<^tab;CALL<^tab>PCLRl.NK,RS,LK.F>SX ;;CLr.AR LF NEEDED<cr 
<tab>BR^tab >20$<tab'-'tab>; ;AND GE"^ READY TO SENC TTEK OUT<ct 
10$:^tab><esc>*G/10S/-3C/30S/Vccr 
' tab BNE<tab>30S<tab '< tab^; ;NO<^cr ' 

*AI<cr> 

20$: ^tab>CALL^tab- PEXELNK<tab><tab>; ;THIS CODf: IS "LINKED"<^cr 
<esc>*G/10$:/-4C/30S:/G/EXIT/I/ (UX)P FOR LINKED TERMINALS)/Vcr 
30$:<rtab>RETLRN<tab><tab ^tab>;;EXIT (LOOP FOR LINKED TERMINALS) < cr 
*AI<cr > 

<cr > 

GLOBAb<tab-<LK.P.SX><crr 
<esc>*H/TISCRR:/V<cr > 

TISCRR:!<tab><tab><tab>;;HANDLE CONTROL/R (RETYPE’ cr' 

*G/IF<tab>NE/OAV<cr- 

.IF<tab>NE<tab>EKOCTL<cr-. 

*9KI<cr> 

vtab>CALL< tab>CHKINC<^ tab^<tab •; .-CHECK TO SEE IF INPUT CHARACTERS ALLOWED. •fC r / 
<esc>*V<cr > 

<tab>CMP<tab'R2,#'R-100'tab>;;IS IT CONTPOL/R?'cr: 

*HICONTROL/G#OAI<cr- 

;+<cr> 

; CHKlNC - CHECK IF SPECIAL INPUT CHARACTERS ARE ALLOWED (NO ECHO CTL ALLOWED)<cr> 
; CHKNEC - CHECK IF SPECIAL INPUT CHARACTERS ARE ALLOWED (ALLOW ECHO CTL)<^cr'' 

; <cr> 

j<tab>CALL<tab^CHKINC<cr> 

;<tab>CALL<tab^CHKNEC<cr> 

;<cr> ^ 

;<tab>RETURN IS MADE TO CALLER IF SPECIAL FUNCTIONS ^fLLOWED. <cr > 

;<tab>RETURN IS TO TTNORM IF SPECIAL FUNCTIONS NOT ALLOWED.<cr> 

; <cr > 

;-<cr> 

<cr> 

.ENABL<tab>LSB<cr> 

<cr> 

CHKINC;;<cr> 

<cr > 

.IF<tab>NE< tab>EKOCTL<.cr> 

<cr> 

<tab>BITB<tab>#TTECTL,TTMODE(Rl) ;;ECHO CONTROL ACTIVE?<cr> 
<tab>BNE<tab>10$«.tab><tab>;;YES, MAKE THIS A NORMAL CHARACTER<cr> 

<cr > 

.ENDC<tab>;EKOCTL<cr> 

<cr> 

CHKNEK: ;CALL<tab>TTISGL<tab><tab''; .-CHECK FOR SPECIAL MODE(S)<CC> 
<tab>BNE<tab>10S<tab><tab>;.-MAKE NORMAL CHARACTER IF ANY<cr> 
<tab>BIT<tab>#TTFUNC,TTCHAR(Rl) .-.-ALLOWING SPECIAL FUNCTION CHARACTERS?<cc> 
<tab>BE0<tab>20$<tab><tab>;;YES, DO THE NORMAL EXIT<cr> 

10$: <tab-'TST<tab> (SP)+<tab><tab>.-.-DUMP THE RETURN ADDRESS<cr> 
<tab>BR<tab''TTNORM<tab><tab>; .-AND MAKE THIS A NORMAL CHARACTER <C r > 
20$;<tab'RETURN<^tab><tab><tab>;.-SPECIAL CHARACTERS ARE OK.<cr • 


<cr> 

.DSABL<tab'LSB<cr> 

<ft> 

<esc>*H/CHKLIN::/V<cr> 

CHKLIN: :TST-tat •DDFLAG(P.l) <tab>;.-IS LINE STALLED FOR PAGING?<cr> 

*I<cr> 

MOV<tab>l40$,-(SP)- tab>; .-ENSURE THAT CSR POINTER IS RETURNED<cr' 
<tab>CALL<tab>REXELNK<tab><tab>jjDO THE LINKS HOOK<cr' 

<tab><esc>* 3AI<cr- 

<tab>BK<tab>5$<^tab; <tab>;.-SKIP THE NEXT PUSH (SAVES STACK SPACE)<cr> 
-■esc >*V<cr - 
<cr > 

•G/SRTLIN::/V<cr> 

SRTLIN::MOV^tab>CSR.KB(RO),R3<tab>;jUNCONDITIONAL LINE STARTUP<cr> 
*I<cr> 

MOV<tab ••40$,-(SP)<tab>.-.-ENSURE RETURNED CSR POINTER IS CORRECT<Cr> 
<tab>CALL<tab>PEXELNK<tab-'<rtab>.-.-DO THE HOOK FOR LINKS«.cr> 

5$:<tab><esc>*V<cr 

5$:<tab>MOV<tab>CSR.KB(RO) ,R3<tab^ ;.-UNCONDITIONAL LINE STARTl'Pfcr> 
*H/CLRTlN:/2AI<cr> 

<tab>CALL<tab>§DEFTLK-tab'>vtab-.-SET UP THE DEFAULT TALK STATUS<cr'' 
<e8c>*V<cr> 

<tab>BR<tab>20$<tab><tab^;GO CLEAR INPUT AND EXIT<cr' 
*H/TTEMT:/G/80$:/0AV<cr> 

0O$:<tab>ERROR<tab>PRVIOL<tab><tab^.-SPECIAL FUNCTION ERROR<cr> 

*I<cr> 

PRVERR:<tab><tab><tab><tab>.-KE NEED THIS IF LINKS ARE NOT LINKED IN<cr> 


<cr> 

<e8c>*H/SPCSKB/G/.--/0Al<cr> 

; <cr> 

;<rtab>IF CODE f, 10000 <> 0, THE FUNCTION IS HANDLED BY ■LNKSPC"<cr> 
;<tab>THE LINK SPECIAL HANDLER.<cr> 

; <cr> 

<e8C>*G/R2,»4/uAI<cr> 

<tab>BIT<tab>»10000,R2<tab>;IS THIS A LINK FUNCTION?<cr> 
<tab>BE0<tab>85$<tab><tab>jNOPE, THIS IS NORMAL<cr> 

<tab>JMP<tab>@LNKSPC<tab><tab>.-HANDLE THE LINK SPECIAL FUNCTION<cr> 
85$:<e8C>*V<cr> 

85$:<tab>CMP<tab>R2,l4<tab><tab>;IS FUNCTION A SIMPLE FUNCTION?<cr> 
*H/(BELL)/0AV<cr> 

<tab>.WORD<tab>•G-100<tab><tab>;CONTROL/G (BELL)<cr> 


•l<cr> 

<tab>.WORD<tab>'E-100<tab><tab>.-CONTROL/E (FUNCTION KEY)<cr> 
<tab>.WORD<tab>'F-100<tab><tab>jCONTROL/F (OPEN FILES DISPLAy)<cr> 
<e8C>*G/(EOF)/0AV<cr^ 

<tab>.WuRD<tab>'Z-100<tab><tab>,-CONTROL/Z (EOF)<cr> 

*I<cr> 

<tab>.WoRD<tab>'W-100<tab><tab>;CONTROL/W (WORD DELETE)<cr> 
<tab>.WURD<tab>'X-100<tab><tab>;CONTROL/X (CANCEL TYPE-AHEAD)<cr> 
<tab> .WoRD<tab> 'Y-100<tab><tab>.-CONTROL/Y (DETACH) <ct> 
<esc>*H/TISCCG/0AV<cr> 

<tab>.wuRD<tab>TISCCG<tab><tab>;CONTBOL/G<cr> 


*I<cr> 

<tab> .Wc»RD<tab>TI $CE<tab><tab>;CONTBOL/E<cr > 
<tab>.WORD<tab>TI$CF<tab><tab>.-CONTROL/F<cr> 
<esc>*G/TI$CZ/0AV<ct> 

<tab>.WURD<tab>TI$CZ<tab><tab>;CONTROL/Z<cr> 


*I<cr> 

<tab>.WORD<tab>Tl$CW<tab><tab>;CONTROL/W<cr> 
<tab>.WORD<tab>TI$CX<tab><tab>.-CONTROL/X<cr> 
<taD>.WoRD<tab>TI$CY<tab><tab>;CONTROL/Y<cc> 
<e8C>*H/S0ME USEFUL/0AV<cr> 

.SBTTL<tab>SOME USEFUL ASCII STRINGS<cr> 


<cr> 

<tab>TMPORG<tab>TTDVRA<cr> 


<cr> , 

SETFUN:<tab>.WORD<tab>RTSPC<tab><rtab>»JUST*DO A RETURN IF NO FUNCTION KEY<cr> 
CHKLNK:<tab>.WORD<tab>RTSR5<tab><tab>;GET RID OF AN ARGUMENT AND RETURN<cr> 
BRKLNK:<tab>.WuRD<tab>RTSPC<tab><tab>;NOTHING TO DO...<cr> 
EXELNK:<tab>.WURD<tab>RTSPC<tab><tab>jNOTHING TO DO...<cr> 

SPYING:<tab>.WORD<tab>RTSPC<tab><tab>;INDICATE THAT WE ARE ALWAYS SPYING<CC> 


SETLNK:<tab>.WuRD<tab>RTSR5<tab><tab>;DUMP THE ARGUMENT AND RETURN<Ct> 
CLKLNK:<tab>.WuRD<tab>RTSR5<tab><tab>;THIS IS GETTING BORING...<cr> 

DttTbK:<tab>.WuRD<tab>RTSPC<tab><tab>jSET UP DEFAULT TALK ^ATUS<ct> 
LNKSPC:<tab>.WORD<tab>PRVERR<tab><tab>>NO LINK SPECIAL FUNCTIONS FOR NOW<cr> 
INHOOK:<tab>.WORD<tab>TTSAVE<tab><tab>jTHE NEW CHARACTERS DON'T EXIST<cr> 


GLOBAL<tab><RTSPC><cr> 

<cr> 

<tab>UNORG<cr> 


<cr> 

<tab>.DSECT<tab><tab><tab>;DEFINE THE NEW FUNCTION KEYS<cr> 


<cr > 

TI$CE:<tab>.BLKW<tab><tab><tab>;THIS IS 
TI$CF:<tab>.BLKW<tab><tab><tab>»THIS IS 
TI$CW:<tab>.BLKW<tab><tab><tab>;THIS IS 
TI$CX:<tab>.BLKW<tab><tab><tab>>THIS IS 
TI$CY:<tab>.BLKW<tab><tab><tab>;THIS IS 
<cr> 


FUNCTION CODE 0<cr> 
FUNCTION CODE 2<cr> 
FUNCTION CODE 4<cr> 
FUNCTION CODE 6<cr> 
FUNCTION CODE 10<cr> 


<tab>TMPORG<tab>TTDVRB<cr> 

<cr> 

;+<cr> 

; RTSR5 - SKIP AN ARGUMENT<cr> 

; <cr> 

;<tab>NOTE: THIS ROUTINE ONLY EXISTS (AND NEEDS TO EXIST) IF<cr> 
;<tab>TERMINAL LINKS ARE NOT LINKED IN. IF TERMINAL LINKS<cr> 

;<tab>EXIST, THIS CuDt WILL BE OVERLAID (KEEP THE SYMBOL<cr> 
j<tab>LOCAL!)<cr> 

><cr> 

;-<cr> 

<cr > 

RTSR5:<tab>CMP<tab>(R5) , (R5)+<tab>.-BUMP PAST THE ARGUMENT (AND SET Z)<cr> 
<tab>RTS<tab>R5<tab><tab>jAND GO BACK TO THE CALLER<cr> 

<cr > 

<tab>UNORG<cr> 

<ff> 

<e8c>*V<cr> 

.SBTTL<tab>SOME USEFUL ASCII STRINGS<cr> 

*EX<cr> 


TTDIPfrCMD 

• a v<cr > 

TITLr<taB>TT::NT,<:;DCT TEPMlNtt SEavIC£>/:7,2?-5EP-’9,MME/4eC<cr> 

*G/2 2-SEa-7<;/-'JC/:7-wCT-«1 / G/aBC/I«/ik?H»>.av<cr> 

TITL£<tab>TT0lNT,<«00T TrRHi\3L 3EavIC£>#:7,C7-0CT-91,*«Hi/a8C/KPH<cr> 

*N/Ki2741/V<cr> 

.IF<tab>A£<tab>K32741<cr> 

•0Al<cr> 

. I IP<t ab>N„P< t ab>lNCiLH/<tab>I*4C ILR<t90>»< tab>1<tab>;?£'4ULT TO INCLLOc LINKS<cr> 
.IP<tab>KE<tab>:NC*LK<cr> 

TTlImk ; :.SLK*<<tab><tab>;P01NT?a TC T£aMiNaL*S LlAn Ta9L£<cr> 

TTlnkS: “LK>*<tab><tab>;Tt::MiS4L'S LlNn STaTuS<cr> 

.EN0C<tac>;iNC*LA<cr> 

.:iP<tab>S0P<tab>INC>Ct/<tab>INCiC£<tab>«<taD>1<tab>;DEPauLT TO INCLUDE CTaL/E<cr> 
.IF<tab>NE<tab>lNClCt<cr> 

TTFUNK :: .BLK»<tab><tab>;POINTER TO TERMINAL'S 'UACTICN KEy<cr> 
.£N0C<tab>;iNC»CE<cr> 

<«*C>*0AV<cr> 

.IP<tab>NE<tab>Ke2741<cr> 

•5h/ST 27<,1 /V<cr> 

.IP<tab>NE<tab>ST2741<cr> 

•0AI<cr> 

.IP<tab>NE<tab>lNC*L^<cr> 

<tab>.M0RC<tab>C/1<tab><tab>;TTL;NA/TTLNnS<cr> 

.EN0C<tab>;:NCiLA<cr> 

.IF<tab>NE<tab>INC*CE<cr> 

<tab>.i(0R3<tab>0<t-b><tat>;TTPuNA<cr> 

.ENGC<tab>;iNCiC£<cr> 

<a5C >*0Av<cr> 

.:P<tab>NE<tab>ST2741<cr> 

•2H/.IP<tab>NE<tab>D227<,1/v<cr> 

.IP<tab>NE</tab>0Z2 74 1<cr> 

•0AI<cr > 

.IF<taD>NE<tab>INClLA<cr> 

LNKLST : : .MCRD<tab>G<ta&><tab>;aOCT 0* LINKED LIST OF LINK T4eLtS<cr> 

.£N0C<tab>;INC4LK<cr> 

<a»c>»C*V<cr> 

.IF<tab>NE<tab>D;:7<.1<c«-> 

•£ x<cr> 
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V2,l-05 


27-Sep-81 

Ol-Oct-81 

08-Oct-81 

15-Oct-81 

19-Oct-81 


.SBTTL SET UP OUR DEFAULT PARAMETERS 


Copy from V2.0. (KPH) 

Facilitate PSECT split. (KPH) 

Clean up code, fix many bugs. (KPH) 
Add conditionals. (KPH) 

Move RUBOUT code. (KPH) 

Fix STAY problem. (KPH) 

Final code clean-up pass. (KPH) 


NDF 

NDF 

NDF 

NDF 

NDF 

NDF 


EQ 


INCSCE, INC$CE - 
INC$CF, INCSCF - 
INC$CW, INC$CW - 
INC$CX, INCSCX - 
INC$CY, INCSCY - 
INC$LK, INC$LK - 

INC$CEIINC$CF1INC$CW1INC$CX1INC$CY ;INCLUDE NEW CHARACTERS 

INCSCHIINCSLK, .ERROR ;NO "LINK- FUNCTIONS SELECTED 


1 ;DEFAULT TO INCLUDE CTRL/E 
1 7DEFAULT TO INCLUDE CTRL/P 
1 ;DEFAULT TO INCLUDE CTRL/W 
1 ;DEFAULT TO INCLUDE ClRL/X 
1 7DEFAULT TO INCLUDE CTRL/Y 
1 7DEFAULT TO INCLUDE LINKS 


7 DEFINE 

.MACRO 


DEFINE OUR MACROS 
NE INC$CH 

A VECTOR ENTRY 
DEKVEC CHAR 
NE INC$C’CHAR 

.WORD TI$C’CHAR 
7lNC$C'CHAR 
.WORD INCDMP 


7 CONTROL/'CHAR 


7 DUMP THE CONTROL/'CHAR 
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.ENDC ;INC$C'CHAR 


.ENDC 

.SBTTL 


LS.RCV: 
LS.QRlf: 
LS.STY; 


LS.LNK: 
LS.SPY: 


;INC$CH 

DEFINE TERMINAL LINK BITS 


.BLKB 

.ULKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 


.BSECT HIGH 


LK.BUF: 

LK.RSX: 

.DSECT 

LT.CNt: 

LT.FLG: 

LT.KB; 

LT.NXT: 

LT.PKv; 

.SBTTL 


.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
:.BLKB 
:.BLKB 


.BLKB 

.BLKB 

.BLKB 

.BLKW 

.bLKW 


ORDER OUR .PSECTIONS 


;IN TTLNKS [LINK STATUS] 

.•TERMINAL LINKS ARE ENABLED 

.•QUERY USER ON LINK FAILURE 

.•TALK STATUS SHOULD "STAY" ACROSS JOBS 

.•RESERVED 

.•RESERVED 

.•RESERVED 

.•WE ARE CURRENTLY PROCESSING LINKS 
.•THIS TERMINAL IS SPYING 
.•RESERVED FOR CUSTOMER EXTENSIONS 
.•RESERVED FOR CUSTOMER EXTENSIONS 
.•RESERVED FOR CUSTOMER EXTENSIONS 
;RESERVED FOR CUSTOMER EXTENSIONS 
.•RESERVED FOR CUSTOMER EXTENSIONS 
.•RESERVED FOR CUSTOMER EXTENSIONS 
.•RESERVED FOR CUSTOMER EXTENSIONS 
.•RESERVED FOR CUSTOMER EXTENSIONS 

.•IN LT.FLG [LINK FLAGS] 

.•RESERVED 

.•RESERVED 

.•RESERVED 

.•RESERVED 

.•RESERVED 

.•RESERVED 

.•LINK IS STALLED FOR BUFFERS 
.•LINK NEEDS A LINEFEED 

.•TERMINAL LINK TABLE LAYOUT 

.•COUNT OF USERS IN TABLE 
.•LINK FLAGS 

;KEYBOARD NUMBERS IN THE TABLE 
.•LINK TO NEXT @ LT.NXT 
.•LINK TO PREVIOUS @ LT.NXT 


60$: 

70$: 


.ENDC 

.IF 


MOVB 

BIT 

BNE 

SUB 

BR 

DEC 

BR 

BIT 

BNE 

CLR 

BUFFER 

BR 

CLRB 

BIC 

MOV 

SPLC 

RETURN 


R2,(R4)+ 

#37,R4 
30$ 

•40,R4 
60$ 

(R3) 

10 $ 

#37,R4 
50$ 

TTFUNK(Rl) 
RETSML 
70$ 

(R4) 

#37,R4 

R4,TTFUNK(R1) 

3 


;STORE IT IN THE FUNCTION KEY 
;AT END OF BUFFER? 

.-NO, WE'VE GOT MORE TO DO 
.•POINT TO START OF BUFFER 
;AND SAVE IT 

;ONE LESS CHARACTER TO DO 
.•AND DO IT 

.•STILL AT START OF BUFFER? 

.•NO, SOMETHING IS THERE 
.•HE DOESN'T HAVE A FUNCTION KEY 
.•RETURN IT TO THE MONITOR 
.•AND EXIT 

.•END THE COMMAND WITH A NULL 
.•AND POINT TO THE START 
.•ENABLE THE KEY 
.•BACK TO LEVEL 3 
AND RETURN 


<TTFUNK> 

.•inc$ce 

NE 


INC$LK 


SPYING - CHECK TO SEE IF A USER IS SPYING 
R1 -> DDB 
PRIORITY IS PR5 

CALL SPYING (PSPYING FROM TTDVR) 

C FLAG WILL BE SET IF USER NOT LINKED. 
OR IF USER IS SPYING. 


SPYING::TST TTLINK(Rl) ;;IS THE USER LINKED? 

BEQ 10$ .-.-NOPE, READY TO SET THE C BIT 

BIT #LS.SPY!LS.LNK,TTLNKS(Rl) ;.-SPYING OR ALREADY DOING LINKS? 

BEO 20$ ;;NOPE, DON'T RETURN WITH CARRY SET 

10$: SEC ;;SET THE CARRY FLAG FOR FAILURE 

20$: RETURN ;;AND RETURN (TST CLEARS CARRY) 


ORG 

ORG 

ORG 

dekurg 

ORG 


TTDVRA 

TTDVRB 

TTDVRR 

TTMAPX 

TTOPNF 


.SBTTL FILL IN OUR JUMP VECTORS 

ORG TTDVRA 

.IF NE INC$CE 

.WuRD SETFUN 

.IFF ;INC$CE 

.WORD RTSPC 

.ENDC ,-INC$CE 

.IF NE INC$LK 


.•JUMP VECTOR .PSECT 
;RES IDENT CODE .PSECT 
.•RUBOUT CODE (OVERLAYS TTDVR) 
.•PAR6 CODE 
.•OPEN FILES CODE 


;SET UP THE JUMP VECTORS (FOR REAL) 


.•SET A FUNCTION KEY 


;NO FUNCTION KEY SUPPORT 


GLOBAL <TTLINK.TTLNKS> 
.SBTTL RUBOUTS 


TMPORG TTDVRR 


; TI$RO - RUBOUTS. 

TI$RO: BIT 

BNE 
TSTB 
BNE 
CALLX 
BIT 
BNE 
CALLX 
BCS 
BITB 
BGT 

.ASSUME TTTECS 
CMP 


#TAPE,DDFLAG(R1 
80$ 

TTESCC(Rl) 

80$ 

TECOCX 
#TT2741INOECHO, 
70$ 

TTGET 

60$ 

•TTTECSITTTECO 
100 $ 

EQ 200 

R2,#40 


.•RUBOUT CODE 


) .-.-TAPE MODE? 

;;YES, IGNORE RUBOUT 
;;INTO AN ESCAPE SEQUENCE? 

.-.-YES, IGNORE A RUBOUT 
;;CHECK FOR DDT SUB-MODE 
DDFLAG(Rl) .•.•2741 AND/OR CONFIDENTIAL MATERIAL? 
;;YEP, HANDLE SPECIAL 

; .-REMOVE THE PREVIOUS CHARACTER {C»l IF NONE) 
;;NOTHING TO REMOVE 

TTMODE(Rl) ;;TECO OR TECO SCOPE MODE(S)? 

;;NORMAL TECO, ECHO DELETED CHARACTER 


.-.-NORMAL GRAPHIC CHARACTER? 


.ENDC 

.IF 


.ENDC 

GLOBAL 


.WORD 

CHKLNK 

.•CHECK LINK FLAGS 


BHIs 

10$ 

;;YES, <BS><PAINT><BS> WILL DO IT 

.Word 

BRKLNK 

.•BREAK ALL LINKS 


TSTB 

TTMODE(Rl) 

;;TECO SCOPE MODE? 

.WORb 

EXELNK 

.•EXECUTE CODE FOR LINKS 


BMI 

50$ 

;;YES, LET TECO HANDLE THE 'ECHO' 

.Word 

SPYING 

.•CHECK FOR SPYING 

.ASSUME 

TTTECS 

EQ 200 


.WORD 

SETLNK 

.•SET LINK FLAGS 

10$: 




.WORD 

CLRLNK 

.•CLEAR LINK FLAGS 





.WORD 

DEFTLK 

.•SET A USER'S TALK STATUS TO DEFAULT 

.IF 

EQ 

EKOCTL 


.WORD 

LNKSPC 

.•SPECIAL FUNCTION HOOK 


MOV 

#040,R5 

;;<PAINT> IS <SPACE> 

.•INC$LK 



.IFF 




.WORD 

RTSR5 

.•SKIP ARGUMENT 





.Word 

RTS PC 

.•NOTHING TO DO... 


MOVB 

EKOPNT(Rl),R5 

;;GET <PAINT> FROM DDB 

.WORD 

RTS PC 

.•NOTHING TO DO... 


BIC 

#‘C<177>,R5 

;; AND TRIM OFF ANY PARITY 

.WORD 

RTS PC 

.•NOTHING TO DO... 





.WORD 

RTSR5 

.•SKIP ARGUMENT. . . 

GLOBAL 

<EKOPNT> 


.WORD 

RTSR5 

.•SKIP ARGUMENT. . . 





.Word 

RTS PC 

.•NOTHING TO DO... 

.ENDC 

;EKOCTL 



.WORD 

PRVERR 

.•PROTECTION VIOLATION ERROR 


TSTB 

TTMODE(Rl) 

;;IN TECO SCOPE MODE? 

.•INC$LK 




BMI 

25$ 

;;YES, ALWAYS DO A SCOPE RUBOUT 




.ASSUME 

TTTECS 

EQ 200 


NE 

INC$CH 



BIT 

•RUBOUT,DDFLAG(Rl) ;;IN RUBOUT MODE? 





BNE 

20$ 

;;Yes 

.WORD 

INHOOK 

.•INPUT CHARACTER HANDLER 


BIS 

• RUBOUT, DDFLAG(Rl) .-.-NOW HE'S IN RUBOUT MODE 





MOV 

•20$,-(SP) 

;;PRESET RETURN ADDRESS 

;INC$CH 




CALL 

EXELNK 

;;AND EXECUTE THIS FOR LINKS 




BIT 

• TTSCOP,TTCHAR(Rl) .•;IS THIS A SCOPE? 

.WORD 

TTSAVE 

.•MAKE THIS A NORMAL CHARACTER 


BNE 

80$ 

.-.•YES, NOTHING TO DO 




CALLX 

ASCOUE,R5,TTBACK 

;,-NO, SO OUTPUT A <\> 

.•INC$CH 




RETURN 


;;LOOP FOR LINKED TERMINALS 

<RTSPC, 

TTSAVE> 


GLOBAL 

<TTBACK> 


ORG 

TTDVRB 

.•THIS GOES IN THE PARS PART 

20$: 

CALL 

EXELNK 

;;EXECUTE THIS FOR LINKS 




BIT 

• TTSCOP,TTCHAR(Rl), ;;SCOPE? 

NE 

INC$CE 



BEQ 

100$ 

;;NOPE, JUST ECHO DELETED CHARACTER 





CMP 

R2,#40 

;,• PRINTABLE CHARACTER? 





BHIS 

25$ 

;;YES IT IS 

I - SET 

UP A FUNCTION KEY 


BIT 

•TTUPAR,TTCHAR(R1) ;;DOES HE HAVE UPARROW SET? 




BEQ 

80$ 

i;NOPE, NOTHING TO DO 

WE ARE 

JUMPED TO BY THE 

USER LEVEL WRITE SERVICE 


MOV 

PC,-(SP) 

.•;DO THIS TWICE 

PRIORITY IS PR3 


25$: 

CALL 

30$ 

-OUTPUT A BACKSPACE 





MOV 

R5,R2 

;;GET PAINT CHARACTER 





CALLX 

CHOUTE 

;;AND OUTPUT IT 




30$: 

CMPB 

DDHORZ(Rl),#1 

.-.•ARE WE "AFTER* THE LAST COLUMN OF THE 

iSPLC 

5 

jUP TO LEVEL 5 FOR SAFETY 


BNE 

40$ 

.•;NO, NOT THIS TIME 

MOV 

TTFUNK(Rl),R4 

;;DOES HE HAVE A FUNCTION KEY? 


DELB 

DDHORZ(Rl) 

;,-YES, SO DO A 'FAKE' BACKSPACE 

BNE 

10$ 

.•jYES HE DOES... 


BR 

80$ 

;;AND EXIT 

BUFFER 

GETSML,,20. 

;;GET HIM ONE, LEAVING 20. IN THE POOL 

40$: 

CALLX 

RSXCHR,R5,010 

;,-OUTPUT A BACKSPACE 

BVC 

10$ 

;;EVERYTHING'S OK... 


BR 

80$ 

;;ALL DONE 

ERROR 

NOBUFS 

;;NO SMALL BUFFERS FREE... 

50$: 

CALLX 

STOREX 

;;(RE-)STORE THE CHARACTER WE REMOVED 

TST 

(R3) 

;;ARE WE DONE? 

60$: 

MOV 

•177,R2 

.•;RESTORE CHARACTER AS <RUBOUT> 

BEQ 

40$ 

;;YES, SE Y'A LATER... 


CALLX 

TECOCS 

-CHECK FOR SPECIAL MODE(S) 

GETUSR 

.-.-GET A CHARACTER FROM THE BUFFER 


CALLX 

ENDRUB 

;;END RUBOUT MODE 

BIC 

#“C<177>,R2 

;;AND MAKE IT 7-BIT ASCII 


CALL 

EXELNK 

;;EXECUTE THIS FOR LINKS 

CMP 

R2.#177 

.•jIS IT A RUBOUT? 


BIT 

•TTSCOP,TTCHAR(Rl) ;jSCOPE TERMINAL? 

BEQ 

30$ 

;;YES, IGNORE IT. 


BNE 

80$ 

;;YES, SILENCE IS SILVER 

CMP 

R2.#40 

;;IS IT CONTROL? 


CALLRX 

GOCRLF 

;jOUTPUT A <CR/LF> 

BHIS 

20$ 

;;NO, LET IT PASS. 





CMP 

R2,#12 

.•;IS IT LINEFEED? 

70$: 

CALLX 

TECOCS 

;;CHECK FOR SPECIAL MODE(S) 

BEQ 

20$ 

;;YES, THAT'S OK ALSO... 


CALLX 

TTGET 

;;REMOVE THE PREVIOUS CHARACTER (C=l IF 

CMP 

R2,#15 

;;CARRIAGE RETURN? 





BNE 

30$ 

;;ALL OTHER CONTROL'S ARE IGNORED 

.IF 

NE 

KB2741 
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BIT 

BHi 


#TT2741,DDFLAG{R1) ;;2741 TYPE TERMINAL? (Z-BIT=0 IF SO) 

90$ ;;DO <BS> CORRECTION {C=Z*0 -> RUBBED 2741) 


.ENDC 

8U$: 

90$: 

100 $: 


;KB2741 

RETURN 


JMPX 

JMPX 


TTCKBS 

CHOUTE 


;;ELSE JUST EXIT 


;;GO AND DO BACKSPACE CORRECTION 
;;GO AND OUTPUT A CHARACTER 


.ENDC 

.IF 


UNORG 

;INC$LK 


E INC$CH 

>BTTL HOOK FOR OUR NEW INPUT FUNCTION KEYS 

INHOOK - HOOK FOR THE NEW INPUT FUNCTION KEYS 

(SP) HAS THE FUNCTION INDEX 

0 = CONTROL/E 
2 - CONTROL/F 
4 = CONTROL/W 
6 = CONTROL/X 
10 » CONTROL/Y 


BEQ 

..PRCY == 

10$: CALLX 

CALLX 

20$: RETURN 

global <J0BTBL> 
.DSABL LSB 


UNORG 

.ENDC ;INC$CY 

.IF NE INC$CX 

.SBTTL *X HANDLER 


20$ ;;NOPE, IGNORE THIS 

.-2 ; **PATCH** MAKE NOP TO MAKE CTRL/Y NON-PRIV'D 

ASCOUT,R5,DETMSG ;;OUTPUT THE MESSAGE 
DETJOB ;;DETACH THE JOB 

;;AND THAT'S IT 


TI$CX - CANCEL ALL TYPE-AHEAD 


TMPORG TTMAPX 


TI$CX:: CALLX ASCOUE,R5,TTICXC ;;OUTPUT ‘X<CR><LF> 

CALLRX CLRTTI ;;AND CANCEL TYPE AHEAD 


UNORG 
.ENDC ;INC$CX 


INHOOK::MOV 


BEQ 

.ASSUME IN.CE 
CMP 


10 $: 

.IFF 


BEQ 

CALLX 

BR 


(SP),R3 
EKOCTL 
10 $ 

EQ 0 

R3,#IN.CW 
10 $ 

CHKINC 

20 $ 

CHKNEK 


CALLX 
.-EKOCTL 

CALLX CHKINC 


;;R3 HAS THE FUNCTION CODE (DON'T POP STACK!) 


;;FUNCTION 0 WORKS WITH ECHO CONTROL 

;;WAS THE KEY A CONTROL/W 
;YES, THAT WORKS WITH ECHO CONTROL ALSO. 
.-SEE IF INPUT FUNCTIONS ARE ALLOWED 
;AND JOIN UP WITH COMMON CODE 
;CHECK TO SEE IF THIS FUNCTION IS ALLOWED 


;;SEE IF INPUT FUNCTIONS ARE ALLOWED 


.IF NE INC$CY 

.SBTTL “W HANDLER 

; TI$CW - ERASE A WORD 

TMPORG TTMAPX 


;EKOCTL 

MOV 
MOV 
ADD 
CALL 
MOV 
JMPX 


@tKISAR6,(SP) ;;SAVE THE CURRENT PAR6 MAPPING (RE-USE STACK) 

§fKISAR5,@#KISAR6 ;;DUPLICATE OUR PARS VALUE 

•200,9IKISAR6 ;;NOW MAKE IT 4K HIGHER 

@TISDSP(R3) ;;OFF TO THE ROUTINE 

(SP)+,@#KISAR6 ;;RESTORE THE KISAR6 MAPPING 

TTIN04 ;;AND GO TO THE "NORMAL" EXIT 


BIT 

BNE 

TSTB 

BNE 

BIT 

BNE 

BITB 

BNE 

CALLX 

BCS 

BIT 

BNE 

MOV 

NE 


•TAPE,DDFLAG(R1) 
10 $ ; 

TTESCC(Rl) ; 

10 $ 

#TTDDT,DDFLAG(R1) 

TTNRML 

•TTTECO,TTMODE(R1 
TTNRML 
TTGET 
10 $ 

•NOECHO,DDFLAG(R1 
20 $ 

•20$,-(SP) 

INC$LK 


;;TAPE MODE? 

;YES, IGNORE THIS 

;IN AN ESCAPE SEQUENCE? 

;YES, IGNORE THIS “W 
;;DDT MODE? 

;YES, MAKE THIS NORMAL. 

) ;;TECO MODE? 

;YES, MAKE NORMAL 
;ERASE FIRST CHARACTER 
;NOTHING THERE 

) ;;SHOULD WE PRINT ANYTHING? 
;NO WAY 

;PUSH RETURN ADDRESS FOR LINKS 


;;EXECUTE THE FOLLOWING FOR LINKS 


; INCDMP - DUMP AN INPUT CHARACTER AND FIX PAR6 

; 

; THE STACK CONTAINS A RETURN TO THE NORMAL COMPLETION 

; ROUTINE, AND THE SAVED PAR6 VALUE. THIS ROUTINE WILL 

; POP THE STACK, RESTORE PAR6, AND JUMP TO "TTINST", WHICH 

; will make the CHARACTER A "NORMAL" CHARACTER. 


.ENDC ;INC$LK 


10 $: 

20 $: 


INCDMP::TST 
MOV 
JMPX 


(SP) + 

(SP)+,@^KISAR6 
TTINST 


.-.-DUMP THE NORMAL RETURN ADDRESS 

;;RESTORE PAR6 

;;AND PROCESS THE CHARACTER 


.ENDC 

.IF 


NE INC$CE 

“E HANDLER 


TI$CE- “E HANDLER 



TMPORG 

TTMAPX 

TI$CE:: 

BIT 

•TTTECOITTTECS, 


BNE 

TTNRML 


BIT 

•TTDDT,DDFLAG(1 


BNE 

TTNRML 


MOV 

TTFUNK(Rl),R4 


BEQ 

20$ 


TSTB 

TTESCC(Rl) 


BNE 

20$ 

10$: 

MOVB 

(R4)+,R2 


BEQ 

20$ 


MOV 

R4,-(SP) 


CALLX 

TTIN09 


MOV 

(SP)+,R4 


BIT 

•<40-l>,R4 


BNE 

10$ 

20$: 

RETURN 


GLOBAL 

<TTFUNK> 

.ENDC 

,-INC$CE 


.IF 

NE 

INC$CH 

TTNRML: 

:JMP 

INCDMP 


UNORG 


.ENDC 

,-INC$CH 


.IF 

NE 

INC$CY 


;;THIS GOES IN PAR6 


;;MAKE THIS A NORMAL CHARACTER 
1) ;;DDT MODE? 

;;YES, MAKE THIS NORMAL 

;;GET THE FUNCTION KEY POINTER 

;;NONE, IGNORE THIS CONTROL/E 

;;ARE WE IN AN ESCAPE SEQUENCE 

;;YES, ANOTHER REASON TO IGNORE THIS 

;;GET A CHARACTER 

;;NO MORE LEFT 

;;SAVE BUFFER POINTER 

;;"FORCE" THE CHARACTER 

;,-RESTORE BUFFER POINTER 

,-;ANY MORE TO DO? 

,-;YES, GO AND GET IT 
,-;WE'RE DONE... 


; ,-MAKE THE INPUT CHARACTER NORMAL 


40$: 

50$: 


60$: 

70$: 

90$: 

.IF 


BIT 

BNE 

CALLX 

RETURN 

CMP 

BEQ 

CMP 

BEQ 

BIS 

BIT 

BNE 

CMP 

BHIS 

BIT 

BEQ 

CALL 

CALL 

CALLX 

BCC 

BR 

BIT 

BEQ 

CALLX 

BIC 

RETURN 


•TTSCOP,TTCHAR(Rl) ;;SCOPE TERMINAL? 

10$ ;;YES, DON'T OUTPUT AN UNDERLINE 

RSXCHR,R5,'_ ;,-OUTPUT AN UNDERLINE 

;,-AND LOOP FOR LINKS AND CONTINUE 
R2,411 ;;WAS THE DELETED CHARACTER A TAB? 

60$ ;;YES, SPECIAL CHECKING NEEDED 

R2,440 ;;WAS THE CHARACTER A SPACE 

60$ ;;THAT NEEDS SPECIAL CHECKING ALSO 

•RUBOUT,DDFLAG(Rl) ;;INDICATE THAT WE ARE DELETING CHARACTERS 
•NOECHO,DDFLAG(Rl) ;;SHOULD WE OUTPUT ANYTHING? 

50$ ;;NO, JUST DELETE MORE- 

R2,^40 ;,-WAS DELETED CHARACTER PRINTABLE? 

40$ ;,-YES, ONE DELETE WILL DO 

•TTUPAR,TTCHAR(R1) ;;WAS UPARROW SET? 

50$ ;;NO, NO DELETES NEEDED 

90$ ;;DELETE ONE CHARACTER 

90$ ;;AND ANOTHER 

TTGET ;,-GET ANOTHER CHARACTER 

20$ ;;PROCESS IT IF PRESENT 

70$ ;;ELSE CLEAN UP SHOP 

•RUBOUT,DDFLAG(Rl) ;;WERE WE DELETING CHARACTERS? 

30$ ;;NO, GO BACK FOR MORE 

STOREX ;,-REPLACE DELETED CHARACTER 

• RUBOUT,DDFLAG(Rl) ;,-RESET RUBOUT MODE 
;;AND WE'RE DONE 


EQ 
MOV 

.IFF 

MOVB 
BIC 

GLOBAL <EKOPNT> 
.ENDC ,-EKOCTL 
100 $: 


EKOCTL 
•40,R2 


EKOPNT(Rl),R2 
•“C<177>,R2 


;;USE <SPACE> FOR PAINT 


;;GET PAINT CHARACTER 
jjTRIM PARITY 


.SBTTL CONTROL/Y HANDLER (DETACH JOB) 


TI$CY - DETACH JOB 



TMPORG TTMAPX 


.ENABL LSB 

TI $CY:: MOVB 
BIC 
BEQ 
BIT 
BEQ 
MOV 
BEQ 
BIT 
BNE 
BIT 


DDJBNO(Rl),R4 
•‘C<63."2>,R4 
20 $ 


,-,-GET OWNING JOB • *2 
;;AND ENSURE A VALID JOB 
;;NO JOB, NO DETACH 

• DDCONS,DDCNT(Rl) ,-; IS THIS THE CONSOLE? 

20$ ;;NO, DON'T DETACH 

JOBTBL(R4) ,R4 ,-;GET JOB DATA BLOCK POINTER 

20$ ,-,-NO JOB, NO DETACH 

•JFNOPR,JDFLG(R4) ;;IS THIS LOGGED IN? 

20$ ,-,-NOPE, DON'T ACT FOOLISH 

• JFPRIV, JDFLG(R4) ,-,-PR IVI LEGED USER? 


*2 


rSTS'VAX'RSX ! 

DATA COMMUNICATIONS 

• INSTALLATIONS THROUGHOUT NORTH AMERICA ANO EUROPE 

• FRONT ENO PROCESSOR-BASED FOR LOW OVERHEAD 

• FULL LINE UTILIZATION FOR HI-THRUPUT (UP TO 19.2 KB) 

• USER INTERFACE DESIGNED FOR REUABIUTY AND SIMPLICITY 


6"I4/4»2"|/S0S4 COLUMBUS, OH 43212 USA TWX S10 482 1631 


CIRCLE 44 ON READER CARD 
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NE INC$LK 
CALL EXELNK 
;INC$LK 


;;EXECUTE THIS FOR LINKS 


BIT 

BEQ 

CALLX 

CALLX 

CALLX 

RETURN 

UNORG 


•TTSC0P,TTCHAR(R1) ;;SCOPE TERMINAL? 


10 $ 

RSXCHR,R5,010 

CHOUTE 

RSXCHR,R5,010 


;;NOPE 
;;OUTPUT A BACKSPACE 
;;OUTPUT CHARACTER 
;;AND ANOTHER BACKSPACE 
;;LOOP FOR LINKS 


LEGAL FUNCnONS ARE: 

lUOOO SET A TERMINAL LINK 

10001 BREAK ALL A TERMINAL'S LINKS 

1U002 SET TALK STATUS 
10003 READ TALK STATUS 


.ENDC 

.IF 

.SBTTL 


NE INCSCF 

HANDLE CONTROL/F (OPEN FILES) DISPLAY 


TI$CF - HANDLE CONTROL/F 


TMPORG TTMAPX 


CALL 

BCS 

RETURN 


TTOPNF 

TTNRML 


TMPORG TTOPNF 


TTOPNF: SEC 

RETURN 


;;DO THE OPEN FILES DISPLAY 

;;NOT ALLOWED, MAKE CHARACTER NORMAL 

;;THAT'S ALL 


;;NOTHING TO DO UNLESS OVERLAID... 
;;BYE-BYE 


LNKSPC: 

:BIC 

# 10000 ,R 2 


.•MAKE THE FUNCTION CODE 0 TO 3 


CMP 

R2,#3 


.•IS THIS VALID? 


BHI 

10 $ 


.•NOPE, ERROR 


ASL 

R2 


.•R2 HAS FUNCTION CODE TIMES TWO 


JMP 

P30$(R2) 


.•DISPATCH TO THE ROUTINE 

10 $: 

ERROR 

PRVIOL 


.•INVALID FUNCTION CODE 

20 $: 

CALLX 

MAPPED,R5 .CRELNK .-CREATE A LINK 


RETURN 



;AND WE'RE DONE 

30$: 

.WORD 

20 $ 


.•CREATE A LINK (MAPPED) 


.WURD 

BRKSPC 


.•BREAK A LINK (MAPPED) 


.WORD 

SETLKS 


.-SET TALK STATUS 


.WuRD 

RDLNKS 


.•READ TALK STATUS 

.SBTTL 

MODIFIERS FOR CREATE 

A 

LINK 

.BaECT 

HIGH 

.•MODI FI 

Er2 for .SPEC (PRIVILEGED) 

CRL.NW: 

:.BLKB 

; DON' 

'T 

PRINT WARNINGS 

CRL.IG: 

:.BLKB 

;IGNORE 

: TERMINAL SETTINGS 

CRL.SP: 

:.BLKB 

.•SPY 

CALL 

CRL.NQ: 

:.BLKB 

. ;DON' 

'T 

QUERY USER 


.ENDC 

.IF 


UNORG 

;INC$CF 

NE INC$LK 

MASTER ROUTINE FOR TERMINAL LINKS 

EXELNK - EXECUTE THE FOLLOWING CODE FOR ALL LINKED TERMINALS 


CALL EXELNK 

IF THIS TERMINAL IS NOT LINKED, OR LINKS ARE NOT APPLICABLE, 
THIS ROUTINE WILL RETURN WITH NO EFFECT. IF THIS TERMINAL 
IS LINKED, THE ROUTINE FOLLOWING THE CALL WILL BE EXECUTED 
ONE TIME FOR EACH ENTRY, AND THEN A RETURN TO THE CALLER'S 
CALLER will BE EXECUTED. 


.BLKB 

.BLKB 

.BLKB 

.BLKB 

UNORG 


;RESERVED 
;RESERVED 
.•RESERVED 
.•RESERVED 


SPECIAL FUNCTION TO CREATE A LINK 


TMPORG TTMAPX 


RO - 

LINE NUMBER TIMES 

TWO 

R1 -> 

DDB 


CALL 

SPYING 

;.-SHOULD WE DO ANYTHING? 

BCS 

20 $ 

;;NOPE, EXELNK IS NOT VALID 

MOV 

R0,-(SP) 

;;SAVE OLD RO 

MOV 

R1,-(SP) 

;;AND OLD R1 

MOV 

TTLINK(Rl),R1 

;;GET POINTER TO TABLE. 

MOV 

(Rl)+,-(SP) 

;;AND PUSH THE BYTE COUNT. 

MOVB 

(R1)+,R0 

;;PICKUP A KEYBOARD NUMBER 

ASL 

RO 

;;MAKE IT KEYBOARD * 2 

MOV 

R1,-(SP) 

;;SAVE POINTER 

MOV 

DEV.KB(RO),R1 

;jPICK UP DDB ADDRESS 

BIS 

•LS.LNK,TTLNKS(R1) ;;INDICATE THAT WE ARE NO 

MOV 

R2,-(SP) 

;;SAVE R2 

MOV 

R3,-(SP) 

;;SAVE R3 

MOV 

R4,-(SP) 

;;SAVE R4 

MOV 

R5,-(SP) 

nSAVE R5 

CALL 

e20(SP) 

MAND CALL THE ROUTINE 

MOV 

(SP)+,R5 

;;RESTORE R5 

MOV 

(SP)+,R4 

;;RESTORE R4 

MOV 

(SP)+,R3 

;;RESTORE R3 

MOV 

(SP)+,R2 

;;RESTORE R2 

BIC 

iLS.LNK,TTLNKS(Rl) ;jWE ARE NO LONGER DOING 

MOV 

(SP)+,R1 

;;RESTORE POINTER TO TABLE 

DECB 

(SP) 

.•.•DECREMENT BYTE COUNT 

BNE 

10 $ 

;jIF MORE EXISTS, GET IT 

TST 

(SP) + 

nJUNK THE BYTE COUNT 

MOV 

(SP)+,R1 

7 ;RESTORE OLD R1 

MOV 

(SP)+,R0 

;;AND OLD RO 

TST 

(SP) + 

7 7 DUMP OUR CALLER'S ADDRESS 

RETURN 

77 AND EXIT 


20 $: 

30$: 


60$: 

70$: 


:CALL 

BIT 

BNE 

CLRB 

BIT 

BNE 

BIT 

BEQ 

TST 

BEQ 

ERROR 

MOV 

MOVB 

CMP 

BLO 

ERROR 

ASL 

CMP 

BNE 

ERROR 

MOV 

SPLC 

BITB 

BNE 

TSTB 

BEQ 

BIT 

BNE 

ERROR 

BIT 

BNE 

CMP 

BNE 

TST 

BEQ 

ERROR 


CHKDET ;ENSURE THAT THE USER IS ATTACHED 

•JFPRIV!JFSYS!JFNOPR,@JOBF ;IS USER PRIV'D? 

10$ ;YES, PRESERVE PARAMETERS 

1(R3) ;NOT PRIV'D, CLEAR PARAMETER 

»LS.SPY,TTLNKS(R1) ;IS TERMINAL SPYING? 


20 $ 

•CRL.SP,{R3) 
30$ 

TTLINK(Rl) 

30$ 

INUSE 

R1,-(SP) 

(R3),R2 

R2,#CNT.KB 

40$ 

NODEVC 

R2 

R0,R2 

50$ 

BADFUO 

DEV.KB(R2),R2 
5 

•1,DDJBNO(R2) 
60$ 

DDJBNO(R2) 

60$ 


GLOBAL 

80$: 


GLObAl 

.SBTTL 


<DEV.KB,TTLINK,TTLNKS> 

UTILITY ROUTINES FOR TERMINAL LINKS 


; + 

; DEriLK 


SET A USER'S TALK STATUS TO THE DEFAULT 
R1 -> DDB 
PRIORITY IS PR5 
CALL DEFTLK 


DEFTLK::BIT 
BNE 
MOV 

..DFTK « 

10$: RETURN 


#LS.STY,TTLNKS(R1) ;,-SHOULD WE KEEP THE LINK STATE THE SAME? 
10$ ;;YES, HE REQUESTED .STAY 

iLS.QRY,TTLNKS{Rl) ;;SET DEFAULT TALK STATUS 
.-4 ; **PATCH** DEFAULT TALK STATUS 

;;THAT'S ALL... 


GLOBAL <TTLNKS> 

; + 

LNKSPC- SPECIAL FUNCTION HANDLER FOR THE TERMINAL LINK FUNCTIONS 

RO = UNIT NUMBER TIMES TWO 
R1 -> DDB/FCB 

R2 * SPECIAL FUNCTION CODE 
R3 -> XRB 

R4 * CALLING JOB NUMBER TIMES 2 
R5 -> (MAPPED) XRB 


RETURN 

-OR- 

erhor code 


<DEV.KB 
BIT 
BNE 
BIT 
BNE 
BIT 
BNE 
BIT 
BEQ 
MOVB 
MOV 
MOVB 
ASL 
CALLX 
CALL 
CALLX 
CALLX 
ERROR 
MOV 
BNE 
MOV 
BNE 

DUFFER 
BVC 
ERROR 
MOV 
MOV 
ADD 
MOV 
BEQ 
MOV 
TST 

.ASSUME LT.PRV 
MOV 

115$: MOV 

TST 

.ASSUME LT.PRV 
MOV 
BIC 
MOV 
MOVB 
MOVB 
BR 

120$: MOV 

MOV 
MOV 


;YES, SO ERROR 
.•DOES HE WANT TO SPY? 

;NO 

;IS HE LINKED? 

.•NO, HE CAN SPY 

.•ERROR - CAN'T LINK AND SPY AT THE SAME TIME 
.•SAVE DDB POINTER 
.-GET KEYBOARD TO LINK WITH 
.•IS IT LEGAL? 

.•YES 

.•KEYBOARD NUMBER IS OUT OF RANGE 
.•MAKE IT KEYBOARD * 2 
.•SAME TERMINAL? 

;NO, THE PARAMETER IS OK 
.•ERROR - CAN'T LINK TO YOURSELF 
.•R2 -> DDB TO LINK TO 
;;GO TO LEVEL 5 FOR SAFETY 
;;IS TERMINAL DISABLED? 

;;YES, SO DON'T LINK 
;;IS TERMINAL IN USE? 

;;NO, SO HE CAN'T LINK 
•DDCONS,DDCNT(R2) ;;IS THIS THE CONSOLE? 

70$ ;;YES, IT SEEMS OK TO LINK TO 

NOTAVL ;;ERROR - CAN ONLY LINK TO A JOB’S CONSOLE 

iLS.SPY,TTLNKS(R2) j;TERMINAL SPYING? 

90$ ;;YES, FAKE THAT HIS TALK IS OFF 

TTLINK(Rl),TTLINK(R2) ;;ARE THEY ALREADY LINKED? 

80$ ;;NO WAY 

TTLINK(Rl) ;,-POSSIBLY, OR ARE THEY BOTH NOT LINKED? 

80$ ;;NIETHER OF THEM ARE LINKED 

NOTCLS ;;ERROR - THEY ARE ALREADY LINKED 

,TTLINK,TTLNKS> 

• CRL.IGICRL.SP, (R3) .-.-IGNORING STATUS OR SPYING? 

100$ ;;YES, SKIP CHECKS 

iLS.RCV,TTLNKS(R2) ;;LINKS ALLOWED? 

100$ ;;YES, DON'T SAY ANYTHING 

•CRL.NQ,(R3) ;;IS IT OK FOR US TO WARN HIM? 

90$ ;;NO, JUST GIVE AN ERROR 

iLS.QRY.TTLNKS (R2) .-.-DOES USER WANT TO BE WARNED? 


90$: 

100 $ 


110 $: 


90$ 

DDUNT(Rl),R5 
R2,R1 ; 

DDUNT(R1),R0 ; 

RO : 

ASCOUT,R5,CRLF.O 
210 $ ; 

ASCOUT,R5,TRYLNK 
CHKLIN ; 

PRVIOL ; 

TTLINK(Rl),R4 ; 

130$ ; 

TTLINK(R2) ,R4 ; 

120 $ 

GETSML,,20. ; 

110 $ 

NODUFS ; 

R4,TTLINK(R1) ; 

R4.TTLINK{R2) ; 

#LT.NXT.R4 ) 

LNKLST,R5 ; 

115$ ; 

P5,(R4) ; 

(R5)+ 1 

EQ LT.NXT+2 

R4.(R5) j 

R4.LNKLST i 

{R4)+ : 

EQ LT.NXT+2 

#LNKLST,(R4) ; 

I37,R4 J 

i2,(R4)+ : 

DDUNT(Rl),(R4)+ ; 

DDUNT(R2),(R4)+ ; 

180$ ; 

R2,R0 : 

R1,R2 ; 

R0,R1 ; 

150$ ; 


NOPE. 

;;PICKUP TERMINAL NUMBER 

AND GET DDB OF TERMINAL TO NOTIFY 
PICKUP KEYBOARD NUMBER TO NOTIFY 
AND MAKE IT * 2 
.•OUTPUT A <CR/LF> 

AND THE KEYBOARD NUMBER 
.•AND SAY THAT SOMEONE CALLED 
START UP THE LINE 

ERROR - TERMINAL NOT RECEIVING LINKS 
IS OUR CALLER LINKED? 

;IS OUR DESTINATION LINKED? 

GET A BUFFER LEAVING 20. IN THE POOL 
WE HAVE ONE 

ERROR - OUT OF SMALL BUFFERS 

POINT TO BUFFER 

IN BOTH DDBS 

POINT TO LINK TO NEXT 

GET FIRST LINK TABLE 

NONE THERE 

OUR LINK TO NEXT IS THE CURRENT FlRST LINK 
R5 LT.PRV OF OLD LINK 

LINK THE NEW TABLE TO THE OLD ONE @ LT.PRV 
WE ARE MOW THE TOP OF THE LINKED LIST 
R4 -• LT.PRV OF NEW LINK 

THE PREVIOUS LINK IS THE ROOT OF THE TABLE 

POINT BACK TO THE BUFFER'S START 

INITIALLY, TWO ENTRIES EXIST 

LOAD KEYBOARD NUMBERS 

INTO THE TABLE 

AND EXIT 

SAVE R2 

R2 -> DDB WITHOUT LINK 

R1 -> DDB WITH LINK 

NOW PROCESS THIS INSANITY 


GLOBAL <LNKLST,CRLF.0.TTLINK,TTLNKS> 
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130$; 

MOV 

TTLINK(R2),R0 

;;ARE BOTH TERMINALS LINKED? 


BEQ 

150$ 

;;NO, REAL CRAZINESS DOESN'T HAPPEN 


MOVB 

(R4),R5 

;;GET USER COUNT FROM OTHER USERS LINK TABLE 


MOV 

R4 ,R2 

;;COPY OTHER USER'S LINK TABLE POINTER 


TST 

(R2) + 

;,-ADVANCE TO FIRST ENTRY IN TABLE 


ADD 

R5,R2 

;;POINT R2 PAST LAST ENTRY IN TABLE 


ADD 

(RO),R5 

;;R5 NOW HAS TOTAL NUMBER OF LINKED TERMINALS 


CMPB 

R5,*26 . 

;;MORE THAN 26. TERMINALS? 


BHI 

160$ 

;;YES, OH LORD! 


MOVB 

R5, (R4) 

;,-UPDATE SIZE OF NEW LINK TABLE 


MOVB 

(RO),R5 

,-,-GET OLD LENGTH 


MOV 

R0,-(SP) 

;;SAVE POINTER 


TST 

(R0) + 

,-;AND POINT TO START 

140$: 

MOVB 

(RO),(R2)+ 

,-,-COPY ENTRY 


MOVB 

(R0)+,R1 

,-,-AND PICK IT UP 


ASL 

Rl 

; .-MAKING IT KB * 2 


MOV 

DEV.KB(Rl),R1 

,-;Rl -> DDB 


MOV 

R4,TTLINK(R1) 

,-,-POINT DDB TO TABLE 


SOB 

R5,140$ 

,-,-AND LOOP 


MOV 

(SP)+,R4 

,-;GET POINTER 


CALL 

UNLINK 

,-.-UNLINK THIS BUFFER AND RETURN IT (PAR 6 ) 


BR 

180$ 

;,-END OF THIS MADNESS! 

150$: 

CMPB 

(R4),426. 

;;ARE WE FULL? 


BNE 

170$ 

;;NO, LET HIM ENTER THE TABLE 

160$: 

ERROR 

NOROOM 

; .-ERROR - LINK TABLE FULL 

170$: 

MOV 

R4,TTLINK(R2) 

7 ,-PUT POINTER IN DDB 


MOVB 

(R4),R0 

;;GET SIZE 


INC 

(R4) + 

,-,-POINT TO FIRST AND SET SIZE 


ADD 

R0,R4 

;,-POINT AFTER LAST 


MOVB 

DDUNT(R2),(R4) 

77 AND STORE THIS 

180 $: 

MOV 

(SP)+,R1 

77 RESTORE DDB POINTER 


BIT 

•CRL.SP,(R3) 

7 ,-DOES HE WANT TO SPY? 


BEQ 

190$ 

77 NO, DON'T PLAY WITH THE DDB 


BIS 

#LS.SPY,TTLNKS(R1) ;;THIS TERMINAL IS NOW SPYING 


BR 

220 $ 

77 SKIP ANNOUNCEMENT 

GLOBAL 

<DEV.KB, 

,TTLINK,TTLNKS> 


190$: 

BIT 

•CRL.NW,(R3) 

7 ,-SHOULD WE NOTIFY? 


BNE 

220 $ 

7 7 NOPE 


MOVB 

DDUNT(Rl),R5 

77 GET KEYBOARD NUMBER 


MOV 

R5,R0 

77 ALSO INTO RO 


ASL 

RO 

7 .-MAKE IT TIMES 2 


CALLX 

ASCOUT,R5,ANNLNK 

77 PRINT SUCCESS ANNOUNCEMENT 


CALL 

210 $ 

7 ,-PRINT IDENTIFIER 


CALLX 

ASCOUT,R5,CRLF.O 

; .-.-AND DO A <CR/LF> 


CALLRX 

CHKLIN 

77 STARTUP LINE 

210 $: 

CALLX 

ASCOOT,R5,ANLNK1 

7 ,-OUTPUT "KB" 


MOV 

R5,R3 

77 GET KEYBOARD NUMBER 


CALL 

NUMOUT 

77 AND OUTPUT IT 


CALLX 

ASCOUT,R5,ANLNK2 

1 77 OUTPUT ■(• 


MOV 

JOBJD2,R2 

.-.-GET SECOND JOB DATA BLOCK 


MOV 

J2PPN(R2),R2 

7 .-NOW GET THE PPN 


MOV 

R2 ,R3 

77 AND SAVE IN R3 


SWAB 

R3 

77 GET THE PROJECT CODE 


BIC 

#‘C<377>,R3 

7 ,-and trash the programmer 


CALL 

NUMOUT 

.-.-OUTPUT IT 


CALLX 

RSXCHR,R5,054 

7 .-OUTPUT A 


MOV 

R2,R3 

77 GET PPN AGAIN 


BIC 

i'C<377>,R3 

77 THIS TIME GETTING PROGRAMMER 


CALL 

NUMOUT 

77 OUTPUT IT 


CALLX 

RSXCHR,R5,') 

.-.-OUTPUT A "1" 

220$: 

RETURN 


7 .-NOW WE'RE DONE 


DEC 

RSTS/E USERS 

From one of the pioneers in commercial 
data processing using RSJS. Off the shelf 
software ready for immediate delivery. 
Completely interactive. Extensively 
documented. Fully supported. Ideal for 
OEM’s, service bureaus or end users. 
Cost effective solutions including; 

• ACCOUNTS PAYABLE 

• GENERAL LEDGER 

• FINANCIAL REPORTING 

• ACCOUNTS RECEIVABLE 

• PAYROLL 

• FIXED ASSETS 

For complete details, contact us at: 

Plycotn services, inc. 

P.O. Box 160 
Plymouth, IN 46563 
(219) 935-5121 


CIRCLE 42 ON READER CARD 


GLOBAL <CRLF.0> 


UNORG 

> + 

; BRxbrC - SPECIAL FUNCTION TO BREAK A LINK 


BRKSPC;;CALL CHKDET ;CHECK IF THE USER IS ATTACHED 

SPLC 5 ;;UP TO LEVEL 5 

CALLX MAPPED,R5,BRKLNK ;;BREAK THE LINK 
RETURN ;;ANDOFF 

t + 

; BRKLNK - BREAK A TERMINAL'S LINKS 

; UNLINK - UNLINK A LINK TABLE AND RETURN IT TO THE MONITOR'S POOL 
; R1 -> DDB 

; R4 -> LINK TABLE (FOR UNLINK) 

; CALL MAPPED,R5,BRKLNK 

; -OR- 

; CALL MAPPED,R5,UNLINK 

; RETURN WITH ALL REGISTERS PRESERVED 
; -OR- 

; R5 » RANDOM (FOR UNLINK) 



TMPORG 

TTMAPX 

.ENABL 

LSB 


BRKLNK: 

:REGSCR 



MOV 

TTLINK(Rl),R4 


BEQ 

60$ 


BIC 

tLS.I.NK ILS.SPY, 


CLR 

TTLINK(Rl) 


MOVB 

(R4),R2 


MOV 

R4 ,R3 


TST 

(R3) + 

10$: 

CMPB 

(R3)+,DDUNT(R1) 


BNE 

10$ 


ADD 

R4 ,R2 


MOVB 

1(R2),-(R3) 


DECB 

(R4) 


CMPB 

(R4),il 


BNE 

20$ 


MOVB 

2(R4),R0 


ASL 

RO 


MOV 

DEV.KB(RO),R1 


BIC 

•LS.LNK!LS.SPY, 


CLR 

TTLINK(Rl) 


BR 

UNLINK 

20$: 

MOVB 

(R4),R2 


TSTB 

{R3) + 

30$; 

MOVB 

-(R3),R0 


ASL 

RO 


MOV 

DEV.KB(RO),R1 


BIT 

#LS.SPY,TTLNKS( 


BEQ 

60$ 


SOB 

R2,30$ 


MOVB 

(R4),R2 

40$: 

MOVB 

(R3)+,R0 


ASL 

RO 


MOV 

DEV.KBtRO),R1 


BIC 

tLS.SPY!LS.LNK. 


CLR 

TTLINK(Rl) 


SOB 

R2,40$ 


;;SAVE ALL REGISTERS 
;;PICK UP LINK TABLE POINTER 
;;NONF, SO IX) NOTHING 
TTLNKSIRl) ;;CLEAR LINK FLAGS 
;;CLEAR LINK POINTER 
;;GET LINK COUNT 
;;COPY POINTER 
;;AND POINT TO START 
;;IS •nils OUR ENTRY? 

;;NO, LOOP 

;;R2 LAST ENTRY - 1 
;;UPDATE LINK TABLE 
;;AND USER COUNT 
;;ONLY ONE USER LEFT? 

;; NO 

;;GET UNIT NUMBER 
;;MAKE THIS UNIT NUMBER * 2 
;;PICK UP DDB ADDRESS 
TTLNKS(Rl) ;;CLEAR FLAGS 
;;AND REMOVE POINTER 
;;DUMP BUFFER AND EXIT 
;;GET LINK COUNT 
;;POINT TO END ♦ 1 
;;GET KEYBOARD NUMBER 
;;MAKE IT KEYBOARD * 2 
;;R1 -> DDB 

Rl) ;;SPYING TERMINAL? 

;;NO, LINK CAN STAY 
;;LOOP FOR MORE 
;;RE-GET LINK COUNT 
;;GET KEYBOARD NUMBER 
;;MAKE IT * 2 
;;PICK UP DDB ADDRESS 
TTLNKS(Rl) ;;CLEAR FLAGS 
;;AND REMOVE POINTER 
;;LOOP FOR ALL ENTRIES 


RSTS 

RESCUE 

SQUAD 


We salvage all kinds of disasters: 


• unreadable disks 

• immediate response 

• on-site 

• custom recovery 

• more than 1 


• ruined UFDs and MFDs 

repaired 

• telephone DIAL-UP 

• software tools 

• 90% success to date 
GB rescued to data 


Brought to you by 

On-Track Systems, Inc. 

and a well known (and read) 
Disk Directory expert. 

CALL 24 HOURS 
215-542-7133 
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UNLINK;;MOV LT.NXT(R4),R5 ;;GET LINK TO NEXT TABLE @ LT.NXT 

MOV R5,@LT.PRV(R4) ;;LINK NEXT TABLE TO PREVIOUS TABLE 0 LT.NXT 

BEQ 50$ ;;THIS IS A LINK TO NOWHERE (LAST TABLE) 

TST {R5)+ ;;POINT TO LT.PRV 

.ASSUME LT.PRV EQ LT.NXT+2 

MOV LT.PRV(R4),(R5) ;;LINK NEXT TABLE TO PREVIOUS TABLE 

50$; BUFFER RETSML ;;RETURN BUFFER 

60$; RETURN ;;AND EXIT 

GLOBAL <DEV.KB,TTLINK,TTLNKS> 

.DSABL LSB 

UNORG 

SETLKS - SET A TERMINAL'S TALK STATUS 


SETLKS;;CALL 
CLR 
BIT 
BNE 
MOV 

..KSPR *= 

BIG 

BIT 

BEQ 

ERROR 

10$; BIG 
MOV 

RETURN 


CHKDET ;ENSURE ATTACHEDNESS 

R4 ;INITIALLY NO PRIVILEGED BITS 

•JFPRIVIJFSYSIJFNOPR, 0JOBF ;IS CALLER PRIVILEGED? 

10$ ;PRIVILEGED, SO DON'T MASK FUNCTIONS 

#LS.STY,R4 ;R4 HAS THE PRIVILEGED BITS 

.-2 ;; “PATCH** MODES THAT ARE PRIVILEGED 

R4,{R3) ;clear THE PRIV'D BITS FOR NON-PRIV'D USERS 

R4,TTLNKS{R1) ;ANY PRIV'D BITS SET NOW? 

10$ ;NOPE, LET THIS PASS 

PRVIOL ;SORRY... 

#LS.SPY1LS.LNK,(R3) ;CLEAR OUT THE "SYSTEM* BITS 
{R3),TTLNKS(R1) ;SET THE TALK STATUS 

;AND EXIT 


; RDLNKS - READ A TERMINAL'S TALK STATUS 


RDLNKS;;CALL CHKDET ;ENSURE ATTACHEDNESS 

TST (R5)+ ;ADVANCE TO XRBC 

MOV TTLNKS(Rl),(R5) ;RETURN LINK STATUS 

BIC #LS.SPY!LS.LNK,{R5) ;CLEAR THE SYSTEM STUFF 

RETURN ;BACK TO THE USER 


CHKDET - CHECK IF A USER IS DETACHED 


CHKDET;;CMPB 
BNE 
BIT 
BEQ 

RETURN 


DDJBNO(Rl),JOB ;IS USER ATTACHED 
10$ ;NO 

»DDCONS,DDCNT(Rl) ;YES, BUT IS THIS THE CONSOLE? 
10$ ;NO IT ISN'T 

.•EVERYTHING'S COOL 
;GIVE HIM AN ERROR 


10$; ERROR DETKEY 
GLOBAL <TTLINK,TTLNKS> 

CHKLNK - CHECK LINK FLAGS 

CALL CHKLNK,R5,<MASK TO TEST> 

.ENABL LSB 

CHKLNK;;CALL 10$ ;;LINKS IN USE? 

BIT (R5)+,0TTLINK(Rl) ;;DO THE TEST. 

RETURN R5 ;;AND EXIT 

SETLNK - SET LINK FLAGS 

CALL SETLNK, RS.^-MASK TO SET> 


SETLNK;;CALL 10$ 

BIS (R5)> 

RETURN R5 


;,-LINKS IN USE? 
,0TTLIMK(R1) ;;SET THE BITS 
;;AND EXIT 


; CLRLNK - CLEAR LINK FLAGS 


RSTS/E USERS 
SYS CALL LIBRARY 
FOR 

RT-II a RSX EMULATORS 
$500/CPU 

AVAILABLE 9 TRACK TAPE ONLY 

CONTACT: 

C. MUSUMECI 

NATIONAL PUBLIC RADIO 
2025 M ST., N W 
WASHINGTON. D.C. 20036 
202-822-2644 


CLRLNK,R5,<MASK TO RESET> 


CLRLNK::CALL 
BIC 

RETURN 
10$: TST 

BNE 
TST 
TST 
SEZ 

RETURN 
RETURN 


10 $ 

(R5)+,0TTLIMK{R1 
R5 

TTLINK(Rl) 

20 $ 

(SP) + 

{R5) + 

R5 


20 $; 

.DSABL LSB 
GLOBAL ^TTLINK'' 

NUMuUT - OUTPUT AN INTEGER 
R1 -> DDB 

R3 » NUMBER TO OUTPUT 
CALL NUMOUT 


;LINKS IN USE? 

;;CLEAR THE BITS. 

;AND EXIT 
.•LINKS IN USE? 

;YES. 

;NO, DUMP CALLER 

;SKIP ARGUMENT 

;SET ZERO FLAG FOR FAILURE 

;AND EXIT 

.•NORMAL EXIT 



TMPORG 

TTMAPX 


;THIS GOES IN THE PAR6 PART 

NUMOUT: 

:REGSCR 



;;SAVE ALL REGISTERS 


CLR 

R5 


;;R5 WILL BE BYTE COUNT 

10$: 

CLR 

R2 


.-.-CLEAR MSB FOR DIVIDE 


DIV 

•10.,R2 


;;DIVIDE BY 10. 


ADD 

•60,R3 


;;CONVERT TO ASCII 


MOV 

R3,-(SP) 


.-.•PUSH NUMBER 


INC 

R5 


; .-ADJUST BYTE COUNT 


MOV 

R2,R3 


.-.-AND SET UP FOR ANOTHER DIVIDE 


BNE 

10$ 


.-.-LOOP UNLESS WE'RE DONE 

20$: 

MOV 

(SP)+,R2 


;.-RESTORE DIGIT 


CALL 

CHOUTE 


.-.-AND OUTPUT IT 


SOB 

R5,20$ 


.-.-LOOP FOR MORE 

30$; 

RETURN 



.-.-EXIT (RESTORING REGISTERS) 


UNORG 




.ENDC 

;INCSLK 




.IF 

EQ 

INC$LK 



.SBTTL 

SKiP AN 

ARGUMENT AND 

RETURN 

; + 

; RTSR5 

- SKIP AN ARGUMENT AND 

RETURN 


CALL 

RTSR5,R5,<ARG> 


; 

THIS ROUTINE IS NEEDED 

IF TERMINAL LINKS ARE NOT GENERATED 

; 

THE Z FLAG IS SET ON 

RETURN. 

RTSR5; 

CMP 

(R5),(R5)+ 


.-SKIP ARGUMENT AND SET ZERO FLAG 


RETURN 

R5 


.-AND GO BACK 

.ENDC 

;INC$LK 




.IF 

NE 

INC$CH 



.SBTTL 

INPUT CHARACTER JUMP 

VECTORS ARE DEFINED HERE 


TMPORG 

TTMAPX 



TISDSP: 

DEFVEC 

E 




DEFVEL 

F 




DEFVEC 

W 




DEFVEC 

X 




DEFVEC 

Y 




.DSfcXrr 



.-DEFINE OFFSETS 

IN.CE; 

.BLKW 



;CONTROL/E 

IN.CF; 

.BLKW 



;CONTROL/F 

IN.CW: 

.BLKW 



;CONTROL/W 

IN.CX; 

.BLKW 



; CONTROL/X 

IN.CY: 

.BLKW 



;CONTROL/Y 


.ENDC ;INC$CH 

.SBTTL DEFINE USEFUL ASCII STRINGS 
TMPORG TTMAPX 

.ENABL LC 

.IF NE INC$CX 

TTICXC::.ASCII %*X%<15><12><200> 

.ENDC ;INC$CX 

.IF NE INC$CY 

DETMSG::.ASCI I <15><12>%Detaching...%<15><12><14><200> 

.ENDC ;INC$CY 

.IF NE INC$LK 

ANNLNK::.ASCII <15><12>%Link from %<200> 

ANLNKl::.ASCIZ %KB% 

ANLNK2:;.ASCIZ % |% 

TRYLNK::.ASCII % attempted to link to you.%<15><12><12><200> 
.ENDC ;INC$LK 

.DSABL LC 

.EVEN 

UNORG 


CIRCLE 19 ON READER CARD 
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12-Nev-»1 


2C;21 




STSi'N.C'C 


•(1/T3L/T6L/V<cr> 

TdL/TSL/C»lN:C0'1*'0N,ll£8NeL#3H :CC»*'IG»IN:CH£C»,T5L<cr> 

•*I<cr> 

18 M*C80.S*V<er> 

L:N«S/LIfc< i/C«IN;C-«>»C»./ii:fiNcL/CR: CTNf 15/ IN;CM£C*/n90E^/LIHiiS<cr> 
<#»e >«G/TT3VR/V<cr> 

TT0VR/C<cr> 

•*I<cr> 

LINKS/C<cr> 

<•»c>* v<er> 

XN;RSTS<cr> 

•E *<cr> 


12-No»-81 20:21 [4,4] S»S5CE.C^*C 

•G/L INiiS/HN« S/V<cr> 

LZNKS/LlK.KS/C>lN:C0«MCN/KERheL/3R:C0»tFlG/I»i:CMEC4/KBCEE/LlNKS<cr> 

•*I<cr> 

18 macro.S«V< cr> 

TT0P4E/TTC»'NF/C«1N:CC»'MCK/R5SNcL/CH:TT 0PK* <cr> 

<»«C>4G/LINRS/V<cr> 

LINRS/C<er> 

**I<cr> 

TTOPNP/C<er> 

<**c>»V<cr> 

IN:81TS<cr> 

•E*<cr> 

I hope that this monitor extension is 
useful. If you have any comments, sugges¬ 
tions, or "wishes" for future articles, please 
drop me a line. A complete source distribu¬ 
tion of terminal links is available. To order, 
please send check or money order to: Soft¬ 
ware Techniques, Inc., 5Z42 Katella, Los 
Alamitos, CA 90720 
The order numbers are as follows: 

$50 A1080-YD (9-track 800 BPl magtape) 

$50 AlOeaVM (9-track 1600 BPl magtape) 

$20 Aioeavz (Printed listing only) 

Purchase orders will not be accepted. ^ 



bB.si 





How to make your DEC 
computer talk to almost 
any other computer.* 


Send the data to our INSTOR/8(), where it’s written on an 8" diskette in IBM 
3741 format. Then read the diskette into the other computer. If your other 
computer can’t read IBM’s format, connect your INSTOR/80 to it. Fast and 
simple. Standard RS-232 interface. Standard diskette media. To get your 

computers talking to each other, 
call our sales people at INSTOR. 
(415)326-9830. 

* micro’s, mini’s, data entry and capture 
systems, and nearly anything using RS-232. 

® ■CORPORATION 

mslor 

175Jeflferson Drive 
Menlo Park, CA 94025 
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RSTS PROFESSIONAL 

Box361 . FtWashington, PA 19034-0361 . (215)542-7008 

□ PAYMENT ENCLOSED for one year s subscription (6 issues). 

US 3rd class. $35 / Canada & US 1 st class. $50 / 

All other countries air mail. $60. payable in US dollars. 

□ BILL ME for one year's subscription: 

□ US 3rd class / □ Canada or US 1 st class / □ Other foreign. 


Name _ 
Address 


Suite 


CIty/State/Zip_ 

Country_Phone ( ) 


Please send BACK ISSUES circled: Vol. 1.^1 Vol. 2. 

□ $10 per issue enclosed. Vol. 2. «1 Vol. 2. M 

□ Bill me for $12.50 per issue. Vol. 2. Vol. 3. -*^1 

PI Send me a RSTS PRO _ _ _ 

Tee Shirt - ^6.95 [U 0 B 


Vol. 3. ^2 
Vol. 3. «3 
Vol. 3. ^4 

0 


FREE CLASSIFIED AD WITH SUBSCRIPTION!! 

Your first 12 words are absolutely FREE, only $1.00 per word thereafter. 
Use the space provided below. 


V3.4 
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coc 


Toll Free 
800 854 7488 


CALIFORNIA 

COMPUTER 

GROUP 


In California 
714-966-1661 


TELEX 183519 CCG CSMA 
3303 Harbor Blvd. 11. Costa Mesa CA 92626 
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TSXplus 

AN ALTERNATIVE TO RSTS 

By Ed Judge, Northampton. MA 01060 

I am writing this little piece to acquaint the RSTS user with another 
timesharing operating system that runs on DEC computers, TSX and TSXplus. 
Both are from S&H Computer, in Nashviiie, Tennessee. They are quite popular 
among smaller (11-03.23.34) system owners. 

S&H Computers was founded in 1974 by Harry R. Sanders, who is stili presi¬ 
dent. He was a professor of Eiectricai Engineering at Vanderbiit University, 
teaching Digital Circuits and related electronics. Phil Sherrod, one of the principal 
writers of the system, was heiping develop an operating system and iater a FOR¬ 
TRAN compiier for a Xerox Sigma 7 computer. They got together and TSX was 
written. 

TSX. the first available system in this iine, was availabie around 1976. It ex¬ 
ecuted with the RT11 monitor as a program that controiied who was in core and 
how iong he stayed there. It used only 64K of memory and swapped workspaces 
to a file on disk storage. With hard disks, performance with 2 or 3 terminais was 
acceptable. It cost $1200 and had a spooler. 

When memory above 64K was available, an XM option was made available 
that allowed the upper memory portion to be used as a swapping area, and when 
it was fiiled, it would swap to disc. Later, a device handier (VM.SYS — Virtual 
Memory) was created that treated the extra memory like a disk (and is still 
around in public domain). The swap fiie was placed there, speeding up response 
time significantly. These were the hot setups among TSX users until TSX-Plus 
became available in August 1980. 

TSX-Plus Is like RSTS, and in most instances, runs as fast or faster than 
RSTS, but costs only $2000. It maps user jobs into extended memory and ex¬ 
ecutes them there. It can use all 256K of memory available with the 18 bit ad¬ 
dress capability of the 11-23 (or whatever) in a very efficient manner. A 22 bit 
system will be available later when the 22 bit QBUS becomes available from DEC. 
The small overhead it introduces and its simple but efficient time slice algorithm 
are the secret of its fast response time. It has a protected environment for each 
user space, spooling, spooling backup, forms support for the spooier, dynamic 
alteration of constants in the memory swapping algorithm that allows the 
priviledged operator to optimize the system to the current workioad, logon and 
system usage accounting. It has a debugger that can be loaded into the system 
without the need of linking it to the program in question. Interterminai message 
facilities ailow notes to be passed, printed on the terminai at log-on time. Both 
of these systems show the singie user an RT11 environment having a max of 
56KB workspace, with certain enhancements mentioned below. They are a few 
restrictions, as certain commands from the singie-user RT11 environment wouid 
be unacceptable in a muitiuser system. 

Terminais can be iocked to certain jobs or devices, so that any nonpriviledged 
users cannot peruse the system. Records can be locked to one job or shared. Many 
different terminais are supported, and protocols for many are available, which 
set pagesize, rubout mode, clear screen if appropriate. Xon-Xoff, etc. Multipiexer 
lines as weli as standard seriai and parallel lines are supported, along with 
modems and timeout. More than 15 lines can be connected, the writers claim, 
although the most I have seen is 6 terminals and 3 printers on an 11-23 with 
256KB (with very good response times. I might add). TT buffers, data caches, and 
the performance monitor are stored in extended memory to preserve useabie 
workspace memory. A user can have a fuii 56KB of workspace without any 
system code taking up space. A fuii-featured BASIC can be loaded and will still 
leave over 40KB of useable memory. If this space is not needed, the memory limit 
can be lowered to permit more users in core. 
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Device directory file caching is used to enhance speed on lookups, and an op¬ 
tion to cache whatever device directory you would like can further speed up pro¬ 
grams. A priviledged user can set this at runtime. A performance monitor can be 
run to see what the system is doing, and a graph of system memory usage can 
then be printed out and used to make decisions on how to further improve soft¬ 
ware performance. It also allows the priviledged user to lock certain time-critical 
or real-time jobs in core, and can give special Jobs direct access to the I/O page. 
System and time statistics are continuously available, such as I/O CPU, Idle and 
Swapping times etc. for further optimizing the systems response. 

Virtual lines allow a single terminal to control many separate Jobs at once, 
and detached Jobs run independent of any terminal. Command files are executed 
as though they were system commands. They can also pass several parameters 
to the file about to be executed. When an input is made, the system first looks on 
the system disc for an image file of that name, passing the listed parameters, if 
any. It continues to look, first for a command file on the system disk, then a com¬ 
mand file on the storage disk, and finally, an image program on the storage disk. 
This allows you to effectively extend system commands with your own custom 
set of operations. 

Most important, it is easy to set up. Changes, such as adding new terminals 
and printers etc. can be done quickly, and the system regenerated and brought 
up in much less than 30 minutes, usually less than 10. This, along with the ability 
to dynamically change system constants such as the time slice constants and 
memory partitions at the terminal and watch the results, are what I find par¬ 
ticularly useful. Compare this to RSTS or RSX, especially the system generation 
times. 

My system (11-23, 256KB. FP. RLOI, RL02. RX02) with an overfull compli¬ 
ment of handlers, buffers, options, etc., occupies about 42KB, leaving about 
206KB for program space, responds extremely quickly. I have three terminals 
and 2 spooling printers, and unless I am running a disk sort. I see no noticeable 
lag in response time when all are operating. Changing system swapping 
algorithm constants can make significant differences in response, though the 
defaults are very good. Playing with them and watching the results on the per¬ 
formance monitor is very enlightening as to which type of programs take up 
system resources. 

There are some utilities and programs that cannot be run under TSX-Plus 
that run under RT11, noteably those that access the I/O page. When I wish to run 
these. I shut the system down by not allowing any logons. When the last user is 
off. the system automatically boots up RT11. After I finish, I boot up TSX-Plus 
again (a matter of about 10 seconds) and away I go (there are certain advantages 
to a small system). 

TSX and TSX-Plus are trademarks of S&H Computers, Nashville. Tenn. W 




FRS 

BASIC PLUS TWO 
UCENSE 


In the spirit of the holidays, 
Amcor has something special for 
those of you who are interested 
in our comprehensive line of 
software products, but do not 
have Basic Plus Two on your 
system. Through January 31, 
1982, Amcor will provide a 
Basic Plus Two license to you at 
NO COST (that’s free!) if you 
license any two Amcor products. 
That’s right, FREE, and in the 
process you will acquire the most 
advanced application products 
available for the PDP-11, RSTS 
world. 

Amcor software products are 
installed around the world and 
all over the USA. The founda¬ 
tion of Amcor application prod¬ 
ucts is AMBASE, the most com¬ 
prehensive DBMS/Application 
Development Tool available for 
PDP-11, and soon for VAX 
computers. 

If you haven’t looked at our 
software, now is a great time. 
Just drop us a note, or give us a 
call TOLL FREE at 1-800- 
626-6268, we will be happy to 
answer any of your questions. 


amcor comf;^er corp. 


Headquarters 1900 Piantside Dr, LousvtHe. KY 40299 Regioral Offices Nationwide 
CIRCLE 86 ON READER CARD 
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CLASS! 


FIED 


j Send Classified Ads to: RSTS Classified. P.O. Box 361. Ft. Washington. PA 
19034-0361. ^1“ per word, first 12 words free with one year's subscrip¬ 
tion. [Be sure to Include a phone number or address In your message.] 


DEC best values 


PRE-OWNED DEC EQUIPMENT 

BUYING AND SELLING 

SYSTEMS • CPUs • PERIPHERALS • TERMINALS 
OPTIONS • MEMORY • COMPATIBLES 


CALL DICK BAKER (305) 979-2844 


dataware 

incorporated 


Carico Center 
2845 NW 62nci Street 
Ft Laurjerdale. Floncja 33309 
Telephone (305) 979-2844 



Software Support from Free Lance Logic 
Santa Ana, CA (714) 979-7860. 

RSTS optimization done In Eastern 
Massachusetts, Call David, 327-9476 (nights). 

PROGRAMMING FLUID printed on coffee 
mug. $6.50 from VIA OZ, GPO Box 1241, NYC 
USA 10116. 


EFEL SYSTEMS High Quality Truly Interactive 
Software POB 21501 Tel-Aviv, Israel. 

Allied Data offers ERIS which allows you to 
build an Input model to FINAR from your 
report files; increases accuracy and saves in¬ 
put time. ALLIED DATA (206) 456-3535. 

The ultimate RSTS/E performance tool! Call 
(614) 764-1585. 

BASIC-PLUS-2/RMS/COBOL 
Contracting assignments wanted by con¬ 
sulting firm In Boston area. Total of 24 years 
experience. Very competitive rates. 
617-646-9656 Tab Data Systems, Inc. 65 
James St., Arlington, MA 02174. 

Need Digital Software? Create your own with 
RSTS/E Application Generator. Call Tom 
Meredith (503) 245-1341. 

Give ‘em heck, buy DEC. Hello to all at Rose 
Hulman. 

McGrath Consulting Service, 15 yrs. program¬ 
ming & Design experience. RSTS/E Basic-i- 
Dibol (415) 449-1428. 

RSTS/E PROFESSIONALS 

Positions now open In 
exciting WALL STREET projects. 

-TOP MONEY- 

-SUBCONTRACTORS WELCOJIED- 

Send resume or call: 

LINK SOFTWARE INC. 

P.O. Box 208, Wall Street Station, New York, 10268 
(212) 426-8921 


SAVE YOUR quarters, games for RSTS/E 
are here. Interactive, real-time games 
for VT52 and VT100 terminals. Some of 
the games available: 

BLKADE: As many as eight players try to 
force each other to collide with their 
growing tails on the screen. 

STRWRS: You have five minutes to 
destroy the Death Star with your single 
X-wing fighter. 

SUBS: Two players manuever around 
islands in an attempt to sink the other 
player’s submarine. 

Games come on 9-track magtape with 
their own high-quality user manuals. 
Order the first game for $39.95, $29.95 
for each additional game. Individual 
manuals available for $9.95 each. 

Send your check, or write or call: 

INFINITY SOFTWARE CORPORATION 

2210 Wllshire Blvd. 

Suite 801 

Santa Monica, California 90403 
(213) 820-2702 


BASIC PROGRAMMERS. Well established 
RSTS time-share service located near San 
Diego running five 1170s and VAX Is looking 
for programmers/analysts with experience In 
business/commercial applications. Basic 
Plus, Basic-2, or Vax-Basic experience re¬ 
quired. Send resumes with salary history to: 
NCCS, 2235 Meyers Avenue, Escondido, CA 
92025 (714) 745-6006. 

Southwest Automation Complete Computer 
Sen/ices Sales, Lease, Purchase, Repair, Soft¬ 
ware, Timesharing. (713) 371-9288. 

For Sale Xerox Slgma-9. Buy now, get free 
Mahendra! (306) 584-4632. 

Programmer required: RSX-11M, Unibus 
Handler for DMA Data Cartridge System. PO 
Box E1425, Binghamton, N.Y. 13902. 

RSTS Time available. Bulk or Measured. Dual 
11/70’s - Minneapolis Location Data Direc¬ 
tions Inc. (612) 333-0580. 

RSTS/E RT11 Consulting. Basic- f, DIBOL, 
reasonable rates. Horizon Computer Services 
(504) 46&-1105. 

Effective Management Systems, Inc. 
Authorized Digital Equipment Distributor (414) 
251-6662. 

WANTED by Hobbyist, DEC PDP-11, LSI-11 
Software, parts, boards, manuals, peripherals, 
etc. Working or not. H. Kolesnik, 5277 S. Ken¬ 
ton Way, Englewood, Colo 80111, (303) 
779-5256. 


ORACLE — complete relational DBMS — 
NOW AVAILABLE FOR RSTS! Call RSI (301) 
657-4475. 

Software Techniques, Inc., Is happy to an¬ 
nounce the hiring of two new employees — 
Wef Fleischman and Tom Mynar. 

TIMESHARING AVAILABLE on PDP 11/70 
RSTS. Software also. Call Wabash Time 
Share in Indiana (317) 448-1686. 

FOR SALE (2) RK05F, (4) MS11-JP. Call Ron 
Maclean (414) 743-8282. 

RSTS/E HEAVYWEIGHT 

Needed as in-house expert for sysgens, 
updates, optimization; consultant for ap¬ 
plications programmers. 20-i- RSTS/E In¬ 
stallations on various hardware configura¬ 
tions. Northeast location, some travel. Ex¬ 
cellent salary and benefits. Gannett Co., 
Inc., Lincoln Tower, 15th FI., Rochester, NY 
14604, (716) 546^8600. 


DELA WARE 
VALLEY 

TIMESHARING 

Eastern Pennsylvania 
Philadelphia 
South Jersey 

DEC 11/70 RSTS/E 

WORD-11 

24 hours - 7 days 
Most commerical packages 
Custom work. Raw time 

NATIONWIDE DATA DIALOG 

70 James Way 
Southampton, Pa. 18966 
215-364-2800 


The FAMOUS 
RSTS PROFESSIONAL 
TEE-SHIRT 
is now for sale! 

Send size desired and $6.95 for each 
shirt to: 

RSTS TEE-SHIRT, P.O. Box 361, Ft. 
Washington, PA 19034-0361. 

Shirts available in adults sizes only: 
Small — Medium — Large — X-Large 


Suburban Phlla. financial Institution wants ex¬ 
perienced Basic -I- Programmer. Reply to 
TSO, c/o M Systems, Inc., Box 361, Ft. 
Washington, PA 19034. 


Just how many [1,*] passwords do you use 
that are catchy and easy to remember?? 

Lots of Luck from LOCK-11 (p. 49). 


DEC VAX 780 Memory MS 780-DB [.2MB1 
available now very cheap (215) 728-2760. 

SPREE — RSTS/E Extended Program Editor 
$200 (503)644^73. 


. ^ Send your articles of interest to the RSTS | 

I </) community to the RSTS Proteaalonal on | 

I ^ mag tape in either RNO, PIP or WORD-11 I 
* ^ format. Eighty percent of this issue was • 

I ^ transmitted via tele-communications | 
3 from author’s mag tapes to phototype- • 
< setting equipment and was not retyped. I 

f 
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NEWS 

RELEASES 



Occasionally we are requested to print news that may be of interest 
to the RSTS community. We are happy to offer this feature to our 
readers. We reserve the right to print only as time and space 
permit. We cannot return photos or manuscripts. Send news 
releases to: RSTS News Release. P.O. Box 361. Ft. Washington. PA 
19034-0361. 


July, 1981 

SSI INTRODUCES FOUR NEW PRINTER 
SYSTEMS 

Fort Lauderdale, FL — A new family of four line 
printer systems. The QT Series, has been intro¬ 
duced by Southern Systems, Inc., computer 
printer company. 

The 300, 600, 1000 and 1200 1pm printer 
systems can be interfaced with computers from 
most manufacturers. Compatibility with the 
end-user's computer is guaranteed by Southern 
Systems. 

Parallel, synchronous serial or asynchronous 
serial operation of the printers is available. 

'The quietest standard line printer on the 
market. The QT Series is built to handle 
intensive data processing applications. 

Operator-friendly standard features include 
operator-changeable bands, swing-open band 
gate, easy ribbon changing, excellent print 
quality, diagnostic display, membrane touch 
controls, form length select switch, 6/8 Ipi and 
casters. The easy band change also automati¬ 
cally adjusts the printer to the new character set 
and to vertical alignment of the band. Special 
bands, including foreign language and OCR— 
A, are available. 

The QT series is easy to maintain and offers as 
standard such convenient servicing features as 
double opening bonnet — front and rear, double 
tilt paper bail, captured cabinet hardware, 
swing-out PC board rack, edge-connected PC 
boards, high ESD levels and internal self-test. 

Standard configuration features also include a 
towel ribbon with deskew, casters, forms/align¬ 
ment and column scale, paper motion verifica¬ 
tion, computer controller and I/O cable, single 
print control; and multi-band sensing. 

The QT 300 and 600 1pm systems are 
available with both 132-column and 198- 
column (condensed) formats. 

The QT-3 prints at 220 1pm with a 96- 
character set, at 300 1pm with a 64-character set 
and at 360 1pm with a 48-character set. The 
QT-6 prints at 440 1pm with a 96-character set 
at 600 1pm with a 64-character set; at 720 1pm 
with a 48-character set. 

The QT-10 prints at 740 1pm with a 96- 
character set, at 1000 1pm with a 64-character 



Southern Syitems new QT Sene* offers printer systems 
that operate at 300,600, 1000 and 12001pm with compu¬ 
ters from DEC, DG, HP, Burroughs, Texas Instruments and 
most others. Compatibility with the end-user's computer is 
guaranteed by Southern Systems. The quietest standard 
line printer on the market, The QT Senes is built to handle 
intensive data processing applications. 


set at 1200 1pm with a 48-character set. The 
QT-12 prints at 890 1pm with a 96-character 
set; at 1200 1pm with a 64-character set and at 
1440 1pm with a 48-character set. 

Southern Systems provides complete printer 
systems for end-users, systems houses and in * 
the United States, United Kingdom and Europe. 
Speed ranges are from 200 1pm up to 1500 1pm. 

Southern Systems headquarters are located at 
2841 Cypress Creek Road, Fort Lauderdale, FL 
33309. (305)979-1000, (800)327-5602. Telex 
522135. 


November, 1981 

NEW uP WINCHESTER DISC CONTROLLER 
INTERFACES up to Two Seagate ST506 or 
STS 12 Compatible Drives with LSI-11 and 
Offers DEC Software Compatibility 
Garden Grove, CA — A new low cost intelli¬ 
gent uP based Winchester Hard Disc Controller 
for interfacing two Seagate ST506 or STS 12 
compatibile drives with RL01/RL02 emulation, 
is now available from DILOG (Distributed 
Logic Corp.), for use with DEC LSI-11, 11/2 or 
11/23 based computer systems. 

Designated the Model DQ604, the quad size 
board plugs into a single Q-bus slot for 
minimum space and power requirements. 

In operation the controller runs under the 
RT-11 and RSX-11 operating systems using 
standard DEC RL01/RL02 drivers. A format 
diagnostic routine is supplied with each 
controller. 

Other features of the DQ604 include an 
on-board multiple device hardware bootstrap * 
bad sector mapping when formatting * auto¬ 
matic flawed media compensation for hard 
errors on the disk * automatic read retry for 
soft errors * and full sector data buffer to 
eliminate DMA latency. 

In addition, the controller includes an auto¬ 
matic self-test card edge LED to indicate 
successful microdiagnostics completion, and 
data protect to prevent erroneous data entry. 

Price: $2,050. each. Delivery: Stock to 45 
days A.R.O., Direct inquiries to: Mr. Dennis 
Edwards, Nat'l Sales Mgr., DILOG (Distributed 
Logic Corp.), 12800 Garden Grove Blvd., 
(Sarden Grove, CA 92643, Phone: (714)534- 
8950, Telex: 681 399 DILOG GGVE. 



DILOG introduces a uP Winchester Disc Controller that 
interfaces two Seagate ST506 or STS 12 compatible 
drives to DEC LSI-1 1, 1 1/2 or 1 1/23 based computer 
systems, and offers DEC compatibility. 


September, 1981 

ALTERNATIVE TO COSTLY CPU COMMU¬ 
NICATION NOW AVAILABLE FOR RSTS 
AND VMS 

Bedford, MA — Clyde Digital Systems (CDS), a 
principal supplier of software for DEC systems 
since 1970, has recently made available for 
purchase a reasonably priced computer to 
computer communication utility named 
CALOUT. 

Originally developed by CDS as a means for 
direct delivery of its own software products and 
updates to client companies, CALOUT has 
been recognized as a valuable tool for increas¬ 


ing the versatility for RSTS/E and VMS 
environments. 

By making use of industry standard com¬ 
munication equipment, CALOUT provides a 
cost efficient means for moving all types of file 
between computers in either direction. At any 
baud rate, CALOUTs error checking capability 
insures that all transfers, including binary, 
reach their destination correctly without 
distortion. 

CALOUTs flexibility suggests that it pro¬ 
vides an interesting alternative to more expen¬ 
sive file transfer packages. While built to 
facilitate inter RSTS or inter VMS dialogue, 
CALOUTs value is enhanced by its ability to 
allow non-binary data transfers to different 
operating systems and CPU's. 

Clyde Digital Systems is now making 
CALOUT available for your inspection and 
evaluation. Sale on approval is being offered to 
qualified buyers for a 30 day price of $25.00. 
The purchase price of this package is $895.00. 

For more information on CALOUT or other 
CDS products contact: Clyde Digital Systems, 
PO Box 348, Bedford, MA. (617)275-6642. 


October, 1981 

SOFTWARE VENDORS NOW PERFORMING 
DYNAMIC, REMOTE, APPLICATION PACK¬ 
AGE DEMOS 

Bedford, MA — Clyde Digital Systems, Inc., an 
international supplier of general application 
and utility software, reports widespread aquisi- 
tion of their DEMO-11 utility package by 
software vendors. Released early this year, the 
product is currently in use at over 100 user 
sites with sales expanding rapidly. 

According to the spokesman at Clyde Digital 
Systems, a vendor of an application package 
simply has the prospective customer dial up 
the vendor's computer as a normal remote 
user. The customer and vendor then make 
voice telephone contact. The customer evalua¬ 
tion team gathers around a terminal, remotely 
logged into the vendor's computer while they 
talk on the phone to the vendor. The vendor 
simply runs the DEMO-11 utility program and 
links his own terminal to the customer's remote 
keyboard. Now any task run by the vendor at 
his terminal will be seen at the remote, 
customer keyboard. It is as though the vendor 
were at the customer site in person, demon¬ 
strating the vendor's application products at 
the customer's remote keyboard. 

Also, the customer may exercise the vendor 
application package at the remote site. This in 
turn will appear at the vendor's terminal 
exactly as it appears at the customer's remote 
keyboard. Both terminals respond identically to 
the task when either is exercised. 

The spokesman at Clyde Digital Systems 
notes that any task whatever can be run on 
terminals linked with DEMO-11. This includes 
all the various keyboard modes and run time 
systems that may be invoked by the vendor's 
application package. 

The DEMO-11 product promises to offer 
considerable savings in the high cost of 
placing vender personnel at a customer site for 
the purpose of demonstrating an application 
package. 

DEMO-11 is currently implemented on the 
DEC PDF 11 series of computers under the 
RSTS operating system. Clyde Digital Systems 
offers an unusual warranty. It is uncondition¬ 
ally guaranteed to work perfectly. No mainte¬ 
nance contract is needed and no installation is 
required. The spokesman from Clyde Digital 
Systems further notes that new users of DEMO- 
11 become confident users in about 10 
minutes. 

DEMO-11 may be delivered by dial up line 
to a new user's computer within 24 hours of 
receipt of order. Further information can be 
obtained from Bill Keefe at Clyde Digital 
Systems, Bedford, MA 07130. (617)275-2924. 
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August, 1981 

VERSION 2.0 OF ROSS/V 
Lexington, MA — Version 2.0 of ROSS/V, a 
software package which provides a RSTS/E 
operating system environment on DEC's VAX- 
11 computers under VMS, is now available for 
use. Among the many new features of version 
2.0 are: 

(i) enhancements to ROSS/V*s terminal¬ 
handling capabilities, including support for 
RSTS/E's binary input mode, "echo control" 
mode, multi-terminal I/O, and input and output 
escape sequence handling. 

(ii) support for reading and writing DOS 
and ANSI file structured magtapes, as well as 
for specification of tape density and parity. 

(iii) support for a number of RSTS/E "sys 
calls" not previously handled by ROSS/V, 
including assigning and deassigning of devi¬ 
ces, zeroing a magtape, and setting terminal 
characteristics. 

(iv) support for RSTS/E pseudo-keyboards. 

ROSS/V, which is written in VAX-11 

MACRO, interfaces to programs running under 
it, in the VAX's PDF-11 compatibility mode, at 
the RSTS/E monitor call level. Therefore, it is 
capable of running RSTS/E user programs 
without regard to the language in which they 
are written. BASIC-PLUS, BASIC-PLUS-2, 

DIBOL, FORTRAN IV, and MACRO-11 are 
among the RSTS/E languages whih have been 
successfully used under ROSS/V. 

ROSS/V version 2.0 is priced at $10,000 for 
a single-CPU perpetual license, with a one-year 
warranty including software support and any 
update releases of ROSS/V during that period. 
ROSS/V is available from: (Eastern US) Evans 
Griffiths & Hart, Inc., 55 Waltham St., Lexing¬ 
ton, Mass. 02173, (617)861-0670; (Central US) 
Interactive Information Systems, Inc., 10 Knollc- 
rest Dr., Cincinnati, Ohio 45237, (513)761- 
0132; (Western US) Online Data Processing, 
Inc., N. 637 Hamilton, Sp>okane, Wash. 99202, 
(509)484-3400. 


May, 1981 

SSI INTRODUCES SYNCH/ASYNCH SERIAL 
COMMUNICATIONS INTERFACE 
Fort Lauderdale, Fla. — Southern Systems, Inc. 
(SSI), FL-based computer printer firm, has 
announced development of a completely pro¬ 
grammable Serial Communications Interface 
capable of either synchronous or asynchronous 
printer-computer operations. 

The microprocessor-controlled interface was 
developed by engineers in the company's 
Clearwater manufacturing plant. 

Southern Systems' new interface, termed the 
SI-9076, functions with the company's 200 1pm 
matrix printer, its B-Series printers ranging 
from 300 to 900 1pm and with the new line of 
QT band printers that the company is presently 
introducing. 

Programmed for synchronous operation, the 
SI-9076 enables Southern Systems printers to 
function with IBM 2780/3780, Burroughs Poll 
and Select, Univac 1004, Honeywell VIP 7700 
and other industry standard protocols. 

"Since our newest interface is completely 
programmable, it can handle many protocols, 
as well as special purpose tasks," said James W. 
Rule, vice president/marketing. "In general, the 
serial communications interface allows one to 
implement a 'smart' printer on a serial com¬ 
munications network. In some cases the inter¬ 
face can replace communications processors." 

'The SI-9076 operates full or half duplex or as 
a null modem hookup. The synchronous serial 
data rate may be from DC to 64K baud. 'The 
asynchronous rate is from 50 baud to 19.2K 
baud. Modem control signals are provided. 
Provisions also are made allowing these signals 
to be 'lorced true" with switches, said Rule. 

SSI's serial communications interface can 
p>erform standard or special code conversions 
(ASCII, EBCDIC, BAUDOT, IBM SELECTRIC 
and others). Sufficient programming area is 
provided so that a complete "Lookup Table" 


can be implemented and any character con¬ 
verted to any other character. 

'The interface is useful in systems that require 
data verification before printing. Special block 
checks, cyclical redundancy characters (CRC), 
or error-correcting techniques can be pro¬ 
grammed. Parity checking is standard, but may 
be disabled. 

'The SI-9076 allows one to implement addi¬ 
tional features in the printer that are not 
normally present. Features incoporated as 
standards within the 9076 include foldover, 
space compression, vertical TAB, Serial DAVFU 
and Wraparound. 

In addition, the SI-9076 microprocessor can 
read the standard set up switches (USART 
Setup and Baud Rate). In the test mode, a 
printout of the board set-up is performed and 
other readable switches are provided for 
address, terminal number, etc. 'This allows any 
user to verify the exact configuration of his 
communications printer. 

SI-9076 contains 5K bytes of RAM for data 
buffering, although all 5K does not have to be 
installed. This memory may be partitioned as a 
single buffer or multiple buffers. It is normally 
programmable with dual buffers so that a 
record is being printed while a record is 
received. By using Double Buffers, maximum 
printer speed is attained at all times. 

Up to 2K bytes of RAM are is supported for 
programming the interface board. This is gener¬ 
ally more than required to handle specific tasks 
and also provides code conversion area, 
"canned messages," etc. 

A summary of fetures provided by the SI- 
9076: Z80A Microprocessor, 5K Bytes of RAM, 
2K Bytes of EPROM, Double Buffering, Crystal 
Controlled Baud Rate Generator, Synch/A- 
synch USART, Concantinated Rs232 Inpu¬ 
t/Output for line sharing. Current Loop Input, 
Modem Control Signals, 32 Readable Switches, 
Printer Output Buffer. 

Specifications summary: Z80A Microproces¬ 
sor System; 2K Bytes of program area; 5K Bytes 
of buffer storage; Synch/Asynh USART; Syn¬ 
chronous baud rate - DC to 64K baud, the 
external clock must be supplied by the modem 
(or comm, system); Asynchronous baud rate - 
switch selectable from 50 baud to 19.2K baud; 
Parity — switch selectable for even, odd, or nor 
parity; stop bits - switch selectable for 1, o] 

2 stop bits; Self test/Reset switch - a SPDT 
momentary contact switch is provided to reset 
all electronics (A self test feature is incorpo¬ 
rated within the 9076 board); Concantinated 
RS232 Input/Output - separate RS232 input 
and output connectors are provided (multiple 
terminals can share a common communications 
line); Current Loop Interface - a 20MA current 
loop interface is provided (60MA with resistor 
changes). Either the XMI'TER or receiver can be 
made active or passive (active provides a 
current source). 


September, 1981 

SATURN SYS'TEMS RELEASES VERSION 4.0 
OF WP SATURN 

Minneapolis, MN — Saturn Systems, Inc. has 
just released version 4.0 of WP Saturn, a 
Word and List Processing package that runs 
on Digital Equipment Corporations PDP-11 
and VAX series of computers. 

'The enhancements include: 

1. Formatting in the Editor to allow view¬ 
ing of centering, tabs and the margins without 
leaving the editor. 

2. A Master Menu to simplify document 
selection and editing. 

3. Bold Face printing. 

4. Footers. 

5. In addition to automatic decimal num¬ 
bering of paragraphs (i.e., 3.7, 3.7.1, ...), the 
system now has standard outline format as an 
option (i.e., Roman Numerals, Capital letters. 
Numbers, ...). 

For more information contact Saturn Sys¬ 
tems, Inc., 6875 Washington Ave. So., Suite 


218, Minneapolis, MN 55435, (800)328-6145 
or (612)944-2452. 


December, 1981 
PRIN'TER SHARING DEVICE 
Palo Alto, CA — The Model 9 printer sharing 
device from Ross Systems, Inc., is a free 
standing unit which allows one serial printer to 
be shared by up to nine computers, either 
locally or at a remote site. It polls each 
computer using X-on and X-off. It will work 
with any printer which sends X-off when its 
buffer is full and X-on when its buffer is empty. 
Additionally, it will detect printer offline 
through the data terminal ready signal. 

The Model 9 carries a 180 day warranty and 
is available within 30 days after receipt of 
order. 

Ross Systems, Inc., 1900 Embarcadero Road, 
Suite #208, Palo Alto, CA 94303, (415)856- 
1100 . 




ASYNCHRONOUS 
PRINTER 
SELECTOR 


• Efficiently connects multiple mini 
computers to a single line printer 
either locally or at a remote site. 


• Polls up to 9 computers.* 


• Communicates with computers using X-on and 
X-off. 


• Works with any printer which sends X-off when its 
buffer is full and X-on when its buffer is ready to 
accept data. 

• Detects printer offline through pin 20 (dtr). 

• 180 day parts and labor warranty. 

• Supports speeds from 300 to 9600 bits per second. 

• Delivery 30 days after receipt of order. 


Call or Write: John Benedict, Ross Systems, Inc., 1900 
Embarcadero Rd., Palo Alto, CA 94303, (415) 856-1100 


•More ports available by individual quote 


December, 1981 

COMPUTER MANAGED INSTRUCTION, a Tool 
for the Modern Educator 
Medford, NJ — CMI, a powerful tool for the 
modern educator is now a reality. CMI is a 
computer program designed to provide compu¬ 
terized instruction, tests and remedial work to 
students. It adapts to each students ability 
allowing them to work at their own pace. 
Students log on and access the information 
using the EXPLORE function, an easy to use, 
interactive program. *1116 educator can design 
multiple learning modules using the flexible 
CREA'TE function and monitor each student's 
performance via the REPORT function. CMI was 
designed by university faculty and is currently 
being used in secondary school, vocational 
school and universities. 

To find out how CMI can benefit your 
institution contact: ELEX (*1116 Effective Learning 
Exchange), P.O. Box 14, Medford, New Jersey 
08055, (609)654-1100. 


October 1981 

SOF'TWARE PACKAGE TRANSFERS FILES 
BETWEEN TWO DEC MINICOMPUTERS With¬ 
out Using Communications Interfaces 
London, England — Suitable for LSI-ll's and 
VAX-ll's as well as PDP-ll's, including proces¬ 
sors with different operating systems and differ¬ 
ent storage media. 

A low-cost and easy-to-implement means of 
transferring files (data and/or programs) 
between two Digital Equipment Corp. PDP-11, 
LSI-11 or VAX-11 computers, is making its 
debut in the U S. Called XOREN IPL-11, it is a 
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software package which enables file-transfers to 
be carried out asynchronously between any two 
machines from the three famiUes, either on the 
same site or in different geographical locations. 

Developed by Xoren Computing Ltd, of Lon¬ 
don, England, IPL-11 enables a two-way com¬ 
munications sytem to be set up for less than 
$3,000 (excluding line costs) and put into 
operation as soon as the program has been 
installed on each machine. 

Transfers can take place in both directions 
simultaneously at rates up to 9600 bits/second, 
over a direct hne or telephone line; and can be 
initiated manually or, in certain circumstances, 
under the control of a user's apphcations 
program. 

The package carries out and monitors the 
entire transfer process. It performs CRC error- 
correction to CCITT Recommendation V41 and, 
when it detects errors, re-transmits the block or 
blocks in which the errors were found. 

A key feature of the package is that it 
eliminates the need to buy dedicated communi¬ 
cations interfaces. Transfers are via a terminal 
I/O port on each computer. Thus, for inter¬ 
processor communications between two compu¬ 
ters on the same site, each machine requiers 
only a standard DEC DL-11 or equivalent 
single-channel terminal interface card, or a 
single port on a mult-channel interface card 
such as a DZ-11 or DH-11. 

For communications between compters on 
different sites, each processor's interface card 
requires only the addition of the necessary 
modem. 

IPL-11 provides a number of operational 
advantages. It is media-independent, i.e., 
transfers data irrespective of the data storage 
devices in use on each system, it eliminates the 
need to transport disks and other media when 
transferring data on or off site, and it allows 
data to be quickly stored at a remote site for 
securty. 

The package also allows multi-system access 
to expensive peripherals such as large disk 
systems; rapid updating of data and/or pro¬ 
grams on computers at remote sites; communi¬ 
cations between word-processing and informa¬ 
tion-processing systems, and instant distribution 
of informatio in electronic mail applications. 
OPERA'HNG SYSTEM INDEPENDENT 

Another attractive feature of IPL-11 is that it is 
largely operating-system independent. Versions 
are available for most major DEC operating 
systems, including RSX-llM, RT-11, VAX-VMS 
(RSX-11 compatibility mode), IAS and, most 
recently, RSTS/E. Each version can communi¬ 
cate with any other. 

The version for RSX-llM supports indirect 
command files and has a Remote Activation 
facility which enables a user at one computer to 
transfer files to or from another without an 
operator being present at the other machine. An 
optional file-conversion utility, FLC-11, provides 
a one-pass conversion for applications where 
the two op>erating systems use different file 
formats. 

A further option, IPLLIB, enables transfers 
under the RSX-llM version, to be controlled by 
users applications programs. The package is 
supplied under a 5-year licence. A separate 
licence is required for each combination of cpu 
and operating system under which IPL-11 is to 
run. The two UcenscS required to link two 
operating systems cost $1350 each whichever 
pair of operating systems is specified. For 
nlarger orders a system of discounts is applied. 

Xoren is currently setting up a network of 
distributors in the US and Canada to market the 
product to OEM's and end-users. 

Xoren Computing Ltd is an independent 
systems/software company formed in 1974. It 
has develoF>ed real-time computer systems and 
software for several large organisations in the 
UK, Europe and North America, including the 
British Post Office, I.T.T. and the British Colum¬ 
bia Telephone Company and has developed a 
number of commuications-oriented software 


products. 

For more information contact: Mr. John Jarvis, 
Xoren Computing Limited, 28 Maddox Street, 
London WIR 9PF, England. Telephone: LON¬ 
DON (01) 629 5932. 


September, 1981 

WHY SYS'TEMS INTRODUCES DIGICALC 
Redmond, Washington — Our development 
staff, directed by Wayne Yarnall, has designed 
an electronic spreadsheet program to run on 
Digital Equipment Corporation computer 
systems. 

DIGICALC is perfect for doing budgets, finan¬ 
cial modeling, pro forma financial statements, 
investment and resource management, and job 
costing. The strong success of Personal Soft¬ 
ware's VisiCalc shows a clear need for this type 
of program in commercial environments. DIG¬ 
ICALC meets this need and contains the 
enhancements that you would expect from an 
advanced program running on a more powerful 
computer. 

DIGICALC displays a tabular worksheet on 
the screen of a VT-KX) terminal. The user writes 
equations, values, and textual data onto the 
worksheet by way of the keyboard and auxiliary 
keypad. The program calculates the equations 
entered and recalculates each time related data 
is added or changed. Worksheets can be saved, 
recalled, and consolidated, and reports can be 
printed as needed. 

DIGICALC is designed to be very user- 
friendly with extensive HELP available on the 
terminal. An inexperienced operator can sit 
down at the terminal and learn to use DIG¬ 
ICALC in less than an hour. 

As a DEC system user, you wil find DIG¬ 
ICALC useful at every executive work station in 
your organization. Give us a call for an on-site 
demonstration to evaluate DIGICALC for your 
business needs. WHY Systems Inc., 20915 NE 
77th St., Redmond, Wash. 98052, phone: 

(206) 881-2331. 


November, 1981 

NEW RELEASE 3.0 '’RABBIT-3", JOB 
ACCOUNTING AND PERFORMANCE MONI¬ 
TOR for DEC RSTS/E Users 
West Palm Beach, FL — RAXCO Inc. announ¬ 
ces the immediate availabiity of relase 3.0 of 
RABBIT-3, Job Accounting and Performance 
Monitoring Software System for Digitail Equip¬ 
ment Corporation RSTS/E operating system 
users. 

The purpose of RABBIT-3 is to monitor system 
activities and create data that can be utilized by 
performance analysis (RABBIT-2) and/or bilhng 
(RABBIT-1) programs. RABBIT-3 output may 
also be utihzed by Datatrieve, as well as 
Fortran, Cobol and Basic users. 

RABBIT-3 is a stand-alone system written in 
PDP macro that runs in 6-7 K memory system 
degredation is minimal. 

RABBIT-3 requires no sysgen and contains an 
auto-load parameter. 

RABBIT-3 creates records for the following 
resource types: 

• Job Records . . . contain systems resources 
utilized by job. 

• CPU Statistics Record . . . contain periodic 
statistics in percentages of CPU utilization. 

• Disk Space Records . . . periodic records 
containing the disk space available. 

• Disk Catalog Record ... all information by 
filename, for all files on system including pubUc 
and private disks. 

• Disk Statistics Records . . . contain disk 
utilization information for each disk. 

RABBIT-3 basic price is $2495 plus options. 
Rental is $99 p>er month plus options. 

RABBIT Systems are in world-wide use on 
VAX-VMS and PDP-11 RSTS computers. For 
more information contact: RAXCO, Inc., 3336 N. 
Flagler Dr., West Palm Beach, FL 33407. Phone: 
(305) 842-2115. 
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Dataram Corporation offers the industry’s 
widest range of DEC-compatible 
peripheral controllers — from 
comparatively simple NRZl tape 
controllers to complex 300 MB storage 
module drive (SMD) controllers. 

An impressive array of state-of-the-art 
controllers, all built around high-speed 
bipolar microprocessors. All software 
compatible with the host LSl-11®, 
PDP®-11, or VAX® minicomputer...and 
all available now. 

And Dataram’s controllers are designed to 
save you money, and, more importantly, 
space — our controllers typically occupy 
half the space required for the comparable 
controller from DEC. Doing it with a 
level of performance that makes any 
member of this family worth looking at. 

The chart shows our current family of 
peripheral controllers, growing every day. 
If you don’t see the controller you need, 
we’re probably working on it right now. 
Call us and discuss your requirements. 


□ATARAM 

CORPORATION 


Princeton Road 
Cranbury, New Jersey 08512 
Tel: 609-799-0071 TWX: 510-685-2542 


CONTROLLER 

DESCRIPTION 

COMPATIBILITY 

C03 

Cartridge disk controller 

RK05 

C33 

Cartridge disk controller 

RK05 

T03 

NRZl mag tape controller 

TMIl/TUIO 

T04 N 

NRZl mag tape controller 

TMll/TUlO 

T04 D 

Dual density mag tape controller 

TMII/TUIO 

T34/N 

NRZl mag tape controller 

TMII/TUIO 

T34 D 

Dual density mag tape controller 

TMII/TUIO 

T36 

Dual density mag tape controller 

TMII/TUIO 

S03/A 

80MB 300MB SMD controller 

RM02 RM05 

S03 Al 

160MB SMD controller 

RM02 

S03 B 

80MB 300MB SMD controller 

RK07 

S03/C 

200MB 300MB SMD controller 

RP06 

S03/D 

%MB CMD controller 

RK06 

S33/A 

80 MB 300 MB SMD controller 

RM02/RM05 

S33/AI 

80 MB /160 MB SMD controller 

RM02 

S33/B 

80MB/300 MBSMD controller 

RK07 

S33/C 

200 MB 300 MB SMD controller 

RP06 

S33/D 

96 MB CMD controller 

RK06 


Products printed in red are LSI-11 Bus compatible. 

Products printed in black are UNIBUS® compatible for PDP-11 and/or VAX 
minicomputers. 


DEC. l.SI-ll. POP. UNIBUS and VAX arc registered trademarks of Digital Equipment Corporation. 


Canada: Ahearn & Soper Ltd.. 416-245-4848 • Denmark; Technitron ApS, 02 96 98 22 • Finland: Systek OY. (80) 73 72 33 • France: YREL, (03) 956 81 42 • Hungary/Poland/Rumania: 
Unitronex Corporation. WARSAW 39 6218 • Italy: ESE s.r.l.. 02/607 3626 • Netherlands; Technitron b.v.. (020) 45 87 55 • Sweden: M. Stenhardt AB. (08) 739 00 50 • Switzerland: 
ADCOMP AG. 01/730 48 48 • United Kingdom: Sintrom Ellinor Ltd.. (0734) 85464 • West Germany: O.E.M.-Elektronik GmbH. 07 11-79 80 47 • Yugoslavia: Institut "Jozef Stefan". 
263-261 • Australla/New Zealand; Anderson Digital Equipment. (03) 544-3444 • India: Infosystems Private Limited. 79281 • Israel: Minix Computers & Systems Ltd.. 03-298783 • 
Japan: Matsushita Electric Trading Co.. Ltd.. 06 (282) 5111 • Taiwan: Rabbit Associates. Ltd.. 7219573-5 • Hong Kong: Automated Systems (HK) Ltd.. 5-630256-9 • 
Malaysia: Automated Systems (M) Sdn Bhd.. 773777 • Indonesia: P. T. Daya ASL. 584306 • Singapore: Automated Systems (PTE) Ltd.. 2354133 
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ABLEVaxDZ 
dears im your 

data traffic jams. 


Now, here is the best part. ABLE VaxDZ will 
match or beat DH performance in VAX systems 
without the addition of forei g n software. 


the computer e^^rts 

ABLE COMPUTER, 1732 Reynolds Avenue, 
Irvine, California 92714. (714) 979-7030. 


You’ve been hurting over the problem with VAX interrupt 
capacity for some time. Now we have a DZ that breaks up 
the terminal handling bottleneck and keeps your VAX system 
in the fast lane. It’s ABLE VaxDZ, the only DZ with an output 
buffer which lets you select any silo depth from 0 to 16 
characters. With this novel feature, you can literally set 
the optimum performance level for your system. 


That alone should clear up the traffic, but 
there’s more! We’ve given ABLE VaxDZ 
an intelligent input silo two times as 
big as the standard DZ buffer. Both 
big and smart means doubling the 
VAX input data-handling capacity in 
some systems or providing dramatic 
improvement in every system all 
the way up to the maximum line 
configuration. We’ve even included 
a ’’data throttle” which allows any 
external device to control the clear-to- 
send (CTS) line and optimize its own 
data rate. 


VaxDZ puts sixteen lines with modem 
control on a single hex-width board at one 
unit load and includes a panel which sup¬ 
ports EIA only (an optional panel supports a 
mix of EIA/CL). Other features include an on¬ 
board LED display for pinpointing malfunctions 
automatically, an on-board self-test for immediate 
verification of system integrity and a variable 
PROM set for proprietary OEM applications. 


You don’t have to be a hero to deserve an ABLE 
VaxDZ medal. Just be smart enough to use our 
new multiplexer. Write for details. We’ll include 
information on the ABLE line of UNIBUS- 
compatible products, as well as the MAGNUM™ 
Series of computer systems. 


TWX 910-595-1729 ACT IRIN. 
ABLE COMPUTER-UK, 74/76 Northbrook Street, 
Newbury, Berkshire, England RG13 lAE. 
(0635) 32125. TELEX 848507 HJULPHG. 
ABLE COMPUTER-GERMANY, Forsthausstrasse 1, 
8013 Haar (Near Munich), West Germany. 

089/463080,463089. 

VAX and UN I BUS are trademarks of Digital Equipment Corporation. 


CIRCLE 56 ON READER CARD 










Data Processing Design, Inc. 


COMPUTER DISIReulOR 


\IDRD-I1. 

WORD-11 is a complete 
word processing system. 

It’s responsive. It’s powerful. 

And it’s sharable on up 
to fifty terminals while 
running concurrently with 
data processing. 

WORD-11 is talented, too. 

Designed to work on Digital’s 
family of mini computers, WORD-11 has all the standard word 
processing functions. For more sophisticated require¬ 
ments, WORD-11 provides multiple dictionaries for 
spelling error detection. Automatic index and table 
of contents creation. Text search and replace. User 
defined keys. User-controlled hyphenation. And 
automatic footnoting. 

Included with comprehensive list processing, 

WORD-11 offers fast sorting. Flexible selection. 

And extensive math functions. 

And WORD-11 has been proving itself for years. 

You’ll find successful installations in small busines¬ 
ses, Fortune 500 companies, in universities and in 
banks—wherever Digital computers are in place. 


Yet despite 
its sophistication, 
WORD-11 is easy to learn 
and easyMo use. It’s extremely cost effective. And it’s 
available on RSX-llM, RSX-llM-PLUS, and RSTS/E. 

See how WORD-11 responds for you. Write for our 
brochure or call us direct: 

• Corporate Office: 181 W. Orangethorpe Ave., Suite F, 
Placentia, CA 92670, (714) 9934160, 
Telex 182-278. 

• New York Office: 420 Lexington, Suite 647, 
New York, NY 10170, (212) 687-0104. 
• Washington D.C. Office: 4520 East-West Hwy., 
Suite 550, Bethesda, MD 20814, (301) 657-4098. 


Overseas Distributors: 


Management Information Services PTY. LTD. Jenson, LTD. Network Computer Services PTY. LTD. Systime, LTD. On-Line Computing PTY. LTD. 
Melbourne, Australia Bristol, England Sydney, Australia Leeds, England Subiaco, W. Australia 
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